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MACHINE SUPPLY 


Sales of the Beeb have now reached the 120,000 mark, with a current turn-over of 
around 15,000 per month. It is expected that this will reach 19,089 by July this 
year. All in all BBC Enterprises must be very pleased with the 10$ royalty that they 
get on each machine sold (which everyone has kept very quiet about). On our 
calculations this comes to something over £4M. 

With the great popularity of the Beeb, what exactly are the turn-around times on 
orders? Acorn inform us that stocks of model As are reasonable, model Bs are 'tight' 
- though a 28 day despatch (not delivery) is quoted. Disc machines and Econets, 
however present a problem. The primary schools" education project is absorbing most 
of the former, and all of the latter at the time of writing. Econets are expected to 
be available for other users from the beginning of August, but there will inevitably 
be a backlog to clear. Some disc machines are being despatched to non-education 
users, but this is disappointingly few - only a few hundred a month. A similar 
number of disc upgrade kits are also apparently being despatched to dealers. Demand 
for the disc interface is high, so the backlog is increasing, though Acorn say that 
they hope to have turn-around down to about 28 days in the next couple of months. 
The real problem here has been poor supplies of the 8271 disc controller chip. Acorn 
are one of the few users of this Intel chip, and although they have increased their 
orders for it, there is a lead time of several months. In the next issue we hope to 
be able to announce two unofficial disc upgrades for the Beeb, one of which does 
away with the need for the 8271. 


David Graham 


BEEBMAZE 

The excellent program BEEBMAZE published in BEEBUG Vol I No 9 was attributed to 
R.Hull. We have since discovered that the original algorithm and generalised program 
on which the published version was based were developed by Wynford James in an 
article in Practical Computing. Our apologies for not including him in the credits. 


DISC MASTERFILE 
Many members have requested a disc version of MASTERFILE. We expect this to be 
available from mid August, and will announce details in the next issue. 


MAGAZINE CASSETTE 

When we first introduced the magazine cassette, we said that we would try to 
include on them items that we couldn't get into the magazine itself. This month's 
cassette contains five such items: 

A copy of ALIENS (BEEBUG Vol 1 No 6) modified for joysticks. 

A copy of RESCUE (BEEBUG Vol 1 No 8) which restores Bad Programs. 

A copy of 3D ROTATION (BEEBUG Vol 1 No 19) extended to translate objects. 

A machine code screen dump for the Seikosha 250X (instructions on-screen) 

An audio reproduction of the full vocabulary of Speech PHROM A. 


TESTED PROGRAMS 


Unless otherwise stated, all programs in this magazine have been tested on 


operating systems Ø.] and 1.2, and on both Basic I and Basic II. All listings are 
produced directly from working programs. 


HINT WINNERS : 


This month's hint winners are P.Jollyman (£18), Malcolm Davis (£5), Richard 
Porter (£5) and Steven Probyn (£5). 
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PROGRAMS 


Balloons 

Beeb Memory Display 
Speech Programs 

3-D Rotation Update 
Bad Program Lister 
File Handler (1) 
File Handler (2) 
Disc Sector Editor 
Anagrams >. 
Robot Attack 


Joysticks For Aliens 


ADDITIONAL ITEMS ON MAGAZINE CASSETTE 


GENERAL CONTENTS 


Editorial 

Balloons 

An Introduction to Discs 

Games from Superior Software and 
Bug- Byte 

Watching the Beeb at Work 

Points Arising - Program Compacter 
Which Version 

Five Books of Listing for 

the BBC Micro 

Modifications to Acornsoft's 
Planetoid" 

Make your Micro Speak Like 
Kenneth Kendall 

3-D Rotation Update 

Bad Program Lister 

The New EPSON and SEIKOSHA 
Printers 

Brain Teaser 

Using Files (Part 4) 

Expanding "Return of the Diamond" 
LIFE Competition Results 

Disc Sector Editor 

Postbag 

Anagrams 

Robot Attack 

Joysticks for Aliens 


HINTS, 


TIPS & INFO 


4 Easier Entry of Lower Case Variable 


Names 


6 *CODE and *LINE 


6 Cursor ON/OFF in all Modes 


10 Yet More Lives! 
11 Closing All Files 


13 Invisible Function Keys 
20 More Teletext Codes from the 


Keyboard 


23 1091 Uses for a Square Bracket 
23 Circular Circles on a Television 
34 Line Listing After Error 

34 Fast Verify for Wordwise 


Audio Reproduction of Full 34 .More FX Calls 
Vocabulary of Speech PHROM A . 41 *FX3 

Rescue - A program to recover 

from "Bad program" message 


3-D Rotation - Full Listing 
Aliens With Joysticks - Full 


Listing 
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34 Changing "TAB" co-ordinates to 
"MOVE" parameters 
34 Basic Program Execution Address 
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4 Program tested on 
O.S. 0-1 and 1-2 


by A. Collyer 


188 dummy=INKEY (7) : REM Delay colour c 
hange 

198 VDU19,c%,9:9;19,7+0c%3,1;90;19,3+0%, 
470 
200 NEXTC% 
210 UNTIL FALSE:REM Go on for ever 
220 
230 REM Procedure to draw ballon 
240 DEFPROCballoon(xpos$£,ypos£,size$, 


Balloons is 

Å : an animated 
| graphics program that 
“draws three air balloons 


: lour% ,dir%) 
on the screen in mode 2, “© r | 
and then simulates their 250 LOCAL angle,col%,x 


movement across the screen 260 VDU29,xpos$;ypos$;:PROCbasket(siz 


using the scroll command ©) | 
iven in BEEBUG vol 1 no 9 p 14. 270 MOVE , si ze% : FORang le=Ø TO PI*2Ø S 


At the same time the balloons appear to TEP 9.3 

rotate. This is achieved by Ee 289 col$=l+((1+angle/(2*PI) ) MOD3) 

use of the VDU 19 statements in Lines 290 IFdir%*SIN(angle)<9 GCOLØ,colour% 
170 and 190. To run it on a 16k machine *3601% ELSE GCOLØ,col%+colour%-1 
change the 8 and 4 in Lines 90 and 100 300 x=size%*SIN (angle) *COS (angle/4Ø) * 


i E : 1.1 
respectivel with 1, change 2 to 5 in : 
one 60 eer lines 170 and 190 318 PLOT85,x,Size$*COS (angle) : PLOT85, 


with: 170 VbU19,cX,7;0; * 50 
190 VbU19,cX,0;0; E 
1@ REM Balloons VERSION IA 340 
20 REM Animated Graphics Demonstrati 359 REM Procedure to draw basket unde 
on r balloon 
30 REM A.M.Collyer - 27/3/83 360 DEFPROCbasket (size£) 
40 REM BBC Model B (32k Model A) 370 LOCAL x,y,I 
59 ON ERROR GOTO 499 388 VDU19,14,1;0;19,15,0;0; 
69 MODE2:VDU19,90,6;90;23;11,255;0;0;0 398 GCOLØ,14 
:REM Cursor off A00 x=@.2*si ze: y=x 
70 REM Draw three balloons 410 MOVE-x,-y-size%:MOVE-x,-2*y-size% 
80 PROCbal 1 oon (1999, 800, 159, 1-1) 420 PLOT85,x,-y-Size$:PLOT85,x,-y*2-S 
99 PROCballoon(750,700,200,8,1) ize% 
190 PROCballoon(359,559,300,4,-1) 439 GCOLØ, 15 
118 hpos- 440 FORI--x TO x STEPx/2 
120 REM Animated Sequence ; 450 MOVEI,-y-si ze% : DRAWI+I*4.4,0 
130 REPEAT 469 NEXTI 
140 FORc%=1 TO 3 470 ENDPROC 
150 hpos=(hpos+1)MOD89 : VDU23; 13,hpos; 480 
Ø:Ø:Ø;:REM Scroll screen left using CRT 499 ON ERROR OFF 
C register 13 208 MODE 7 
160 REM Rotation effect 519 IF ERR<>17 REPORT:PRINT" at line 
e (fo 2. Mo „ ERL 
md VDU19,c2$,7;0;19,7*c$,3;0;19,34c$, 200-3588 


EASIER ENTRY OF LOWER CASE VARIABLE NAMES (New O.S.) — K. Walker, J. Hewes and 
many. others 

Pressing SHIFT and CAPS-LOCK together selects a keyboard mode equivalent to 
normal  CAPS-LOCK except that subsequently pressing SHIFT gives lower case letters, 
thus making entry of lower case variable names easier (though putting them in a 
function key is easier still). To return to normal mode press CAPS-LOCK twice. 
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The concept of a disc is not hard 
to understand. It is merely a disc of 
plastic or metal covered on both sides 
by a magnetisable material very similar 
to the coating on magnetic tape. mere 
are two major types - hard discs, and 
soft (floppy discs). For this article 
I will ignore the hard disc and its 
assciated drive, as even the cheapest 
is in excess of £1,506, but the 
principles of data organisation are 
very similar to floppies. The disc 
drives currently available for the BBC 
micro take 5.25" diameter discs. The 
other main size is 8", though 3.5" 
discs (micro-floppies) are under 
development. 


THE ADVANTAGES OF DISCS 

The most obvious advantage of discs 
for the BBC user with only a cassette 
interface is the great increase in 
speed achieved when loading and saving 
programs. A 20k program will save or 
load in about 2 seconds, though data 
files take considerably longer. 


A less obvious advantage is the 
provision of the so-called Disc Filing 
System which provides a whole series of 
new commands, as well as organising 
data management. For example typing 
* ,<return> will give an instant 
catalogue of all titles stored on a 
given drive. "There are also commands 
to copy files (data or program), to 
lock them (to prevent accidental 


erasure), to allow text to be directly 
read to the screen from a file (useful 
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instructions), and a 
procedure for so called auto-booting a 
file - this causes a program to be 
automatically chained in if Shift and 
Break are pressed simultaneously. This 
is by no means an exclusive list, (for 
more details see BEEBUG Vol 1 nos o and 
18), but it does serve to illustrate 
some of the advantages of a disc 
system. The chief drawback to 
procuring discs is cost - a single 
drive plus interface will cost around 
£250 (around £350 if you buy an Acorn 
drive). There is a secondary problem 
of memory loss — since a disc 
interface absorbs an extra 2816 bytes 
of memory, for work space. You can 
offset this somewhat by using 
techniques described in recent issues 
of BEEBUG. Even with this drawback, 
and the rather annoying fact that the 
Beeb will only allow seven-character 
file names, discs are a great 
improvement over cassettes - though if 
you have bought quantities of protected 
cassette-based programs, you may have 
trouble getting these on to disc. 


TRACKS SECTORS 

Data is recorded on the disc in 
tracks and sectors. The most common 
numbers of tracks are 35,40,77 or 80. 
In the BBC micro most systems will be 
40 or 89 tracks. These tracks are a 
series of concentric circles. As the 
recording surface is only 1 inch in 
width this gives the width of the track 
as 1/80 inch. This requires a very 
precise "stepper" motor to enable the 
disc head to be positioned quickly and 
accurately over any track. The reason 
why there is only a 1 inch wide 
recording surface is that the outermost 
portion of the disc is unusable because 
of warping, and the innermost portion 
unusable because the recording density 
would be too high and also have a 
tendency to warp. Note that the same 
amount of data is recorded on the 
outermost track as the innermost even 
though the length (circumference) of 
the innermost track is less than half 
the outermost track. 


Each track is divided into sectors. 
It is the sector which is the 
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Whatever is requested to be read or 
written to the disc, it is always a 
sector of data that is moved by the BBC 
DFS. On the BBC there are 19 sectors 
per track, and each sector holds 256 
bytes of data, so that a 40 track disc 
can hold 4@x1l@x256 bytes - or 199k 
bytes. 


Floppy discs can be either soft or 
hard sectored. Most BBC drives 
currently available use  soft-sectored 
discs. This means that the Sector 
markers on the disc are put there 
magnetically rather than physically. 
You can tell whether a disc is hard, or 
soft sectored by looking through the 
hole adjacent to the centre, rotate the 
drive one complete revolution: if just 
one hole passes by, the disc is soft 
sectored, if several pass by, then it 
is hard sectored. The soft sectored 
discs used on the Beeb need to be 
"formatted" before use. This involves 
placing a new disc into the drive, and 
running a formatter program which 


fundamental unit for disc transfers. ‘magnetically marks the beginning of 


each sector. A 4@ track disc can be 
formatted in less than half a minute 
(see BEEBUG vol 1 no 19 p 25 for a disc 
formatter). 


As I said earlier all discs are 
coated with magnetisable material on 
both sides but a quality control 
process ascertains whether the disc is 
to be sold as single or double sided. 
This is one reason why it is unwise to 
use discs marked "single sided" as 
"double sided" discs. They will 
probably appear to work but time will 
tell and you'll be disappointed when 
you eventually lose your programs and 
data on the suspect side. The 
categorization of a disc into SS/DS, 
SD/DD (single or double density), 
40/77/88 tracks is determined by 
quality control and hence you may find 
that any disc (of the correct size) 
will work in your drive. You should, 
however, use the disc that fits the 
Specification of your drive unit. 


*CODE AND *LINE Steven Probyn 


There are two extra commands in 0.S. 1.2, *CODE and *LINE, undocumented in the User 
Guide. Both are intended for the easy access of user supplied machine code routines. 
Both of these words indirect through the user vector (USERV) stored at  &200,&201, 
which defaults to point at the Bad Command message and can be redirected by the 


user. 


*CODE X,Y 


Jumps with USERV to your routine with A=0 and X and Y set to the parameters. 


*LINE FRED 


Jumps with A=1 and X,Y containing the address of the string. X low byte, Y high 
byte, these will point to a Location in the input buffer or to the middle of a 
program. The string is terminated by carriage return (ASCII 13). This should of. 
course be read with OSWORD 5 (read I/O processor memory). 


These commands are an easy route to 


machine code user. 


CURSOR ON/OFF IN ALL MODES (New O.S.) - 
In the series | operating systems 


VDU 23,1,0;0;0;0; turns the cursor off 
VDU 23,1,1;0;0;0; turns the cursor on 


adding new commands to the system for the 


G.M. Abernethy 


This is documented on page 77 of the User Guide, but is not mentioned in the 
reference section of the Guide. Note that pressing any of the cursor control keys 


reinstates the cursor 
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(this does not happen with VDU 23;11,255;0;0;0;). In some 
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Program: Chess 
Supplier: Bug-Byte 
Price: £8.00 
Value: * 


Bug-Byte's Chess is quite an 
extraordinary piece of software in that 
it appears not to work on either 
operating system. The game produced a 
corrupt display on 1.2, and on 9.1 the 
display was all right, but the game 
would not allow you to play. I hope 
that in future Bug-Byte will not sell 
software that does not run on ANY 
Operating System, as this could put 
Some people off forever. 

In fact we have received several 
complaints from members regarding 
Bug-Byte's software. We have asked 
them to comment, and will report what 
they say should they reply. 


Program: Road Runner 
Supplier: Superior Software 
Price: £6.50 

Value: **** 


This is one of the best games 
available from Superior Software. It 
is a variation of the arcade game 
Rally-X in which you steer a car around 
a maze, dodging 3 enemy cars and 
boulders in order to catch flags. The 
game becomes very hard and has very 
smooth graphics. Excellent. 


Program: Airlift 
Supplier: Bug-Byte 
Price: £5.50 
Value: * 


Airlift is a game where you 
navigate a helicopter and you have to 
pick up 'things' and return them to 
base. The game runs on a 9.1 but the 
game was not very exciting, and the 
graphics left much room for 
improvement. 

Although the game is cheap compared 
to other software this does not 
compensate for the low quality, and 
again this game does not run on the new 
Operating System 
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Program: Space Fighter 


Supplier: Superior Software 
Price: £6.50 
Value: *** 


Space Fighter is a cross between 
De fender and Missile  Command', but 
is not as exciting as either of these 
games. The game itself has good 
graphics and is in machine code giving 
decent speeds, the fastest of which is 
pretty near impossible. 

The object of the game is to pilot 
your spaceship and shoot the attacking 
aliens that advance towards you. You 
are also given smart bombs that 
destroy all of the evil things on the 
Screen, and a certain amount of fuel 
which diminishes quickly. Fuel dumps 
run along the bottom of the planet and 
these have to be destroyed to top up 
your fuel supply. 

There is a high score table and six 
different speeds which is a nice 
addition to the program. 


Program: Frogger 

Supplier: Superior Software 
Price: £6.50 

Value: **** 


This is one of the many 'Frogger' 
games appearing on the market at the 
moment, and it is very good indeed. 
The aim of the game is to guide your 
frog across a busy road and a river to 
the far side of the river bank. A 
difficult game with fast flicker-free 
graphics and a frog that really hops! 


Program: Space Pirates 
Supplier: Bug-Byte 
Price: £8.00 

Value: ** 


Space Pirates is loosely based on 
the arcade game 'Asteroids' with you as 
the pilot of a space ship trying to 
prevent the pirates stealing all of 
your life pods. The game was quite 
original in theme and was written to 
run on a 16k machine. This was the 


best of the Bug-Byte software reviewed 
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ATCHING THE BEEB AT 


by Graham Greatrix 


SSK SV 


How would you like to see the memory 
in your micro actually carrying out its 
various tasks? If you would, then clear 
your machine completely by switching on 
(you may have to switch off first), and 
then type in the following. If you have 
a disc interface, type *TAPE <return> 
followed by PAGE=&EØØ <return>. 

19 *TV254 
20 MODE6 
30 VDU23:12:9:0;0;23; 
13:0;0;0;0; 
40 ?&34E-0 
50 VDU12,28,9,24,39,13,12 
60 FORI%=TOP TO TOP+&120@ 
:?1%=0:NEXT — 
Now run the program. The lower half of 
the screen contains a text window for 
BASIC and the upper half contains a 
moving picture of the memory from 
address &0000 to &1ØØØ. The diagram 
shows how this picture of memory is 
organised. 


The 'v' symbols at the top of the 
table are at intervals of  &40. The 
colons show the boundaries of each 
named section of memory. 'R-T' is the 
Run-Time keyboard buffer, 'C' is the 
Copy area and '0' is the sound queue 
area. There are forty character slots 
across the screen and each slot 
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is at the top of the slot 
and the eighth byte at the 
bottom. The next slot 
contains the next eight 
bytes. A white line across 
the slot represents a byte 
equal to 255. A Basic 
program always ends with 
such a byte. Look at the 
end of the area labelled 
"program" where there 
should be a white line. 


KEY PRESSING 

Find the position of 
the Keyboard Buffer. Watch 
this area while you keep 
key '8' pressed. As the 
'8's are printed to the 
Screen, the area fills up 
with a series of vertical 


white bands. When the buffer is full, 


the computer will sound a beep. When it 
does so, press RETURN. The ASCII code 
for the number '8' is &38 or 00111000 
binary. Thus each byte consists of two 
unlit pixels, followed by three lit 
pixels and ending with three unlit 
pixels. What happens when you press key 
'3' continuously? Does this pattern 
correspond to the ASCII for the number 
1312 (00110011). Now try a few other 
keys. Watch the area of the Run-Time 
buffer. The same patterns appear here 
as well. However, if you type a control 
character, such as 'control-C' the 
Run-Time buffer will respond but the 
key-board buffer will not. Now try 
deleting characters from the screen. 


COPY 

Type LIST and use the edit keys to 
copy line 60. Watch the memory section 
marked  'C'.The characters are also 
inserted into the keyboard buffer. 


FUNCTION KEYS 

Define function key 1 as a long 
string of 'A's. Watch the function key 
area aS you press Return. Do the same 
with function keys 2, 3, etc until this 
area of memory is full. See the Bad 
key' message appear. 
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the situation. Note that if you run this 
memory display program after playing 


INTEGERS 
To make the Integers section spring 


to life, type the following in ROBOTS you will see the defined 
immediate mode and watch that section characters reproduced (see screen 
when you press Return: | photo). 


Q$-77:A$-77:B$-7:C2$27:D2-7: 
E%=7:F%=7:X3=7:Y%=7:2%=7 


FLOATING POINT VARIABLES 
Typing: 


A=] :B=] : C=] : DX=1 : EX=1 : FX=1 
Xxx=1:yx=1:Zx=1 

will start up the variable names 
section when you hit Return. 
Information about these variables is 
stored at positions that depend on the 
ASCII value of the first letter of the 
variable name. Typing CLEAR will clear 
this section. 


CHARACTER DEFINITIONS 
The character definition section can 

be started with 
W023, 64, , I, I, I. 1,1,;1,1 

Note how the whole of this section is 

filled with characters, even though 

only e has been redefined. Now type 
VDU23,230,1,1,1,1,1,1,1,1 

Look at the letter 'F' in the row of 

characters and in a LISTing of line 69 


of your program. Type *FX20,0 to recover 
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PRINTER BUFFER 

The Printer Buffer is activated by 
Control/B and then LISTing your program 
to your printer. 


STRING. VARIABLES 

Inserting 
W$="3333333333333333333333" will start 
the string buffer on hitting return. 


BASIC 

Add the following to your BASIC 
program. 

1000 FOR I=] TO 190990 
: X=SOR (I) : NEXT 

On hitting RETURN, watch the section 
which lies in the clear area following 
the program.You will be able to see the 
line being added to the end of the 
program and a new 255 byte appear at 
the end of the added line. type 
GOTO1ØØØ in immediate mode and watch 
the values of I and X being changed and 
Stored just after the BASIC program. 
When you hit return, you will also see 
the FOR/REPEAT/GOSUB stack alter. 
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ARRAYS 
Try adding the following program 
lines 
2000 DIM A(5Ø) :FOR J=1 
TO 5Ø:A(J)=127:NEXT 
This will show how an array is stored 
on typing GOTO 2000. | 


SOUND BUFFER 

Type CTRL-G a number of times. Note 
the sounds  queueing up and the 
envelopes being activated. 


experimenting. 


UNUSED 

Some sections of memory appear not 
to be used. For example, the protected 
zero.page locations from &7Ø to &8F and 
the area just below PAGE from &DØØ to 
&DFF where machine code routines can be 
placed. 


We have only examined some of the 
sections of the memory display. There 
is a lot still to discover, so keep 


PROGRAM COMPACTER 


Two members have noted expressions which should not be compacted (program compacter 


BEEBUG vol. 1 no. 8 p. 11). 
statements. These are as follows: 
When *SAVE "Screen" 3500 8000 
locations is taken out and leaves 
*SAVE" Screen" 35008000 


The problems occur when taking vital spaces out of 


is compacted the space between the two 


The second problem occurs when a variable turns into a number, for 


instance: 
IF B-2 E2-] becomes 


IFB=2E2=1 


which is now wrong because the computer thinks that 2E2 is 200! 


Thanks to D Fowles and D Knowles for pointing these out. 


YET MORE LIVES!! — Dave Tyler 


Dave Tyler, on reading about More Lives in Rocket-Raid' 


(BEEBUG v.1 no.1Ø 


p.34), decided to perform a similar operation on other games. He writes: 


I've achieved 'more lives' in 4 other games. These are Snapper, Planetoid, 
The memory locations and methods are given below. I 


and Swoop (Program Power). 


certainly had fun seeing what screen 13 looks like in Snapper, and 8 


Monsters 


in Planetoid 


(neither of which I am likely to reach with just 3 lives!). 


1) Snapper. - CHAIN "SNAPPER" as usual but when 'Snap2' has finished loading, 


press Escape and enter the line: 
45 

and then ‘RUN’. 

2) Planetoid - CHAIN "PLANETOID". 
159 

and then 'RUN'. 


?&FDD=&7F 


When planet!“ has loaded enter: 
?&276B-&7F 


3) Monsters - LOAD "MONSTERS". 'RUN' but press Escape before anything starts 
loading. Enter L. Monsters“, When loaded enter ?&]EE5=&7F and then CALL &EØ2 
4) Swoop - *L."SWOOP", When loaded enter ?&24E1=&7F and then CALL 82800. This 
can do strange things to the screen, if it cour t enter mode 2 try pressing 


Escape and trying again. 


[ Note we have not tested these Suggestions, and in any case SS may not 
necessarily work with ALL versions of the given programs. Ed] 
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ICH VERSION? 


by David Graham 


Does your machine have an old or a new 


operating system? Does it have Basic I 
or Basic II? Which version of the Disc 
Filing System does it have? David 
Graham tells you how to find out. 


As you are probably aware, most of 
the systems firmware (ie chip based 
programs) in the BBC micro, has 
undergone revision since the first 
machines were despatched well over a 
year ago. Although care has been taken 
to ensure So-called "downward 
compatibility", it is often important 
to know exactly what version of the 
various pieces of firmware you have. 


For example, some programs commercially . 


available will only work on the old 


operating system. Here are the 
details. 


OPERATING SYSTEM Øe.l, 1.9 or 1.2? 
To discover which, type 
*FXÜ «return» 

and you will be told which you have - 
but note, if it is 0.1, it will say 
"EPROM 9.1" whether you have a ROM or 
EPROM based version. The EPROM version 
will be exchanged free by Acorn dealers 
for a 1.2. The 1.2 is the new 


CLOSING ALL FILES - Matthew Rapier 


ROM-based operating system, and 1.0 is 


an EPROM based version of the new 
operating system fitted to early disc 
machines. For notes on 1.2 see BEEBUG 
Vol. 1 no. 19 p 15 and Vol. 2 no. 2 pp 
28-31. 


BASIC I or BASIC II? 


To discover which, 
machine, and type 
REPORT <return> 

The machine will print a copyright 
message. If the year on the message is 
1981, you have Basic I; if it is 1982, 
it is Basic II. "There are only a few 
differences between the two chips, see 
BEEBUG vol. ] no. 6 p. 11. 


turn on your 


DISC FILING SYSTEM - version 0.9 
To discover which, type 

*HELP «return» 
A number of things will be printed in 
response to this, including the letters 
"DFS" followed by the version number. 
To date all production models of the 
Disc Filing System have been version 
0.9, though there are some unofficial 
versions around with higher numbers. We 
Suspect that Acorn are preparing a new 
version of the DFS for general release, 
but this is not yet available. 


OTHER INFORMATION 

The *HELP command (only available on 
machines with a series 1 Operating 
System - i.e 1.8 or 1.2) gives other 
useful information. For example, as 
well as printing the operating system 
number, it prints the name and version 
number of any other ROMS or  EPROMS 
found in the “paged ROM" sockets - eg 
"WORDWISE 1.10" etc. mis can be 
useful to know if you are using a 
machine that is not your own, and want 
to find out exactly what firmware it 
has on board. 


When using the Disc filing system with text files it is possible for a file to 
be left open when an error occurs. The file cannot be deleted as 'File open’ is 


produced. The command CLOSE #@ will automatically close all files and solve the 
problem. ` 
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FIVE I 
Reviewed by Alan Webster 


Ruston don't know that the BEEB has a 
useful envelope command! 

This book from the BBC sets a poor 
example both of programming techniques, 
and in games quality. Its one merit is 
that it is inexpensive. It is a great 
pity that the BBC, renowned in other 
fields, are accepting and publishing 
such material. It contrasts sharply to 
Acornsoft's book Creative Graphics 
reviewed in BEEBUG vol.1 no.9. 


Book ¢ Games BBC Computers Play 
| (113 pages) 
E EUM By: T.Hartnell, S.Gee and M.James 
ASISTE SRM N E | Pub: Interface Publications 
Book: Games for your BBC Micro | Price: um 
(128 pages) | ee | 
ife „ This is another book which in my 


Pub: Virgin Books Ltd | . à 
Price: £2,95 | view is extremely poor value for money. 
Value: kk: The cover is the best part of this 
book, and the price is extremely high 
for a small number of pages. The 
programs do not make full use of the 
BBC's facilities, and I suspect that 
they have been converted from a 
Sinclair computer with very little 
modification indeed. This is certainly 
a book that I would not buy. 


This is one of the better games | 
books around, not because the games are | 
better - far from it, but because the | 
programming techniques are much better. 
The games themselves are all standard | 
implementations of typical games | 
(nothing very exciting), and although a | 
couple of programs did not seem to | 
work, the low price is enticing. 


KENNEN Book : 21 Games for the BBC Micro 
DE DE DA aða? a 9,9,9,9,9,9,9,2,9,9,9,9,9,2,9,2,2,9,9,9,9,9,9,9,9,9,4,2, . . . PAPA PAPA e %. 797 % % . % , . | y (144 pages) 
Book : The Book of Listings | By: M.James, S.Gee and K.Ewbank 
| Pub: Granada Publishing Ltd 


1 S 
(159 pages) Price: £5.95 


By: Tim Hartnell & Jeremy Ruston | 

Pub: BBC Soft | Value: RARE 

Price: £3.75 | | | | PER 
Value: * | This book is nicely produced and in 


| many respects maintains the high 
In my personal view, this book doas standard set by Granada Publishing for 
not warrant the title THE book of | books about the BBC micro. The quality 
listings, there is nothing difinitive | of — though somewhat 
about it, it's more 'A' book of | Variable, is generally higher than that 
listings. | found in the other four books reviewed 
Most of the listings have no spaces | here. The games are quite novel with a 
in them which makes them quite | mixture of the old favourites, and each 
difficult to read (someone forgot to| listing is clearly set out, which makes 
use LISTOI). There is also al them easy to type in. 
conspicuous absence of procedures, and | 
it looks as though messers Hartnell and ttt e. 


e 6 6 6 06 0 € 
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Book: 304 Programs for the BBC The games are all in the Teletext 


Microcomputer mode and therefore fall down on 
(71 pages) expectation from a visual point of 
By: C, Evans view. The scientific and educational 
Pub: C.J.E. Microcomputers programs are better, and there is a 
Price: £4.95 music program which plays God Save the 
Value: * * Queen. Although you do get a reference 


card and a Hints and Tips“ supplement, 

This book consists of 31 programs the book is still over-priced in my 

for the BBC Micro. The programs are view, and is not produced to a 

put into categories, among them being particularly high standard. 
games, music and utilities. 


JIFICATIONS TO ACORNSOFT'S “PLANET 
by Jeffrey Siddle 


á TI 


SEA 


These modifications work on Planetoid, they do not work on Defender (Planetoid 
has a high score table and Defender does not). To use them it is necessary to 
incorporate the changes in the second header program after the machine code has been 
loaded. You will have to make a new copy of the game with either a heavily modified 
second program, or a modified version of the code. 

Firstly to change the keys assigned to various functions, put the negative INKEY 
number of the new key required into the location with ?&address = key number. 
Negative INKEY values are given on the BEEBUG reference card p.5. 


Address Key checked Address Key checked 
13E9 Fire Key 1E8Ø ` Move down 
1A22 Smart Bomb 1EDdJ Thrust 
EEC Move up 1E94 Reverse 


Address Effect 
]AF2 Number of lives lost when ship is hit 
1814 Number of smart bombs lost when one is used 
2638 Initial number of lives and smart bombs 
2657 Number of extra lives every 10,000 points 
2660 Number of extra smart bombs every 10,000 points 


Note: These modifications have been checked at BEEBUG, but there may be more than 
one version of PLANETOID, and the locations used may differ in different versions 


INVISIBLE FUNCTION KEYS - G.M. Abernethy 

When a function key is pressed the text for it is printed out on the screen. In 
Some cases this is undesirable. To remove the text, define the function key to 
include cursor up characters and spaces, so as to remove the unwanted parts, e.q.s 
*KEY8 | M| MDIMP&-1:P.CHR$11;CHRS$]11;CHR$11;H.-P$;"bytes free" ;SPC90|M 
The cursor up characters can be embedded with |K as usual for control characters. A 
little experimentation will be necessary to sort out the correct number of cursor 
control characters. This hint is most useful for disc users or those disciplined 
enough to load their function key definitions every time they start programming, as 


there is considerable extra effort in typing the definition with the extra cursor 
control characters. 
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The speech upgrade for the Beeb will 
be available shortly from Dealers. The 
upgrade will. cost £55 including VAT, 
and will need to be performed by a 
dealer. The reason for this is that 
some machines require modifications to 
be pcb to implement speech, and in any 
case, the upgrade will include the 
Fitting of a cartridge ROM socket in 
the slot to the left of the keyboard. 
The ROM socket will then be available 
for plug-in ROM programs, and for 
vocabulary expansion of the speech 
unit. 


The speech unit itself essentially 
requires the addition of two ICs. One 
is a Texas Instruments speech 
processor, the other a vocabulary ROM. 
The ROM supplied with the upgrade 
(coded PHROM A — (Phrase ROM)) contains 
a vocabulary of around 169 words or 
sounds. These include the ASCII set 
with additions like "hundred" , 
"thousand" etc, and extensions which 
allow the creation of words such as 
"Seven-ty", "eight-ty" etc. 


Speech is accessed very simply using 
a variant of the SOUND command. For 
example SOUND -1, ASC"P",0,0 will cause 
the letter "P" to be spoken. The two 
zeros at the end are redundant, and are 
only included to keep the syntax the 
same as for the normal use of SOUND. 
The operating system allows words to be 
called up from the PHROM in different 
ways. You can define the word required 
by using the so-called word number, or 
by using an ASCII letter, or by giving 
an absolute address in PHROM of the 
start of the word. This allows great 
flexibility. 


As an example of the use of a word 
number, the command SOUND -1,16Ø,Ø,Ø 
will produce the word "Acorn", The 
speech system user guide contains a 
directory of words and sounds with 
their appropriate word numbers and 
addresses, Sounds with word numbers in 
the range 32 to 126 have a direct or 
indirect association with the  ASCII 
characters of the same range, and can 


be called as in the first example. interesting addition to the BBC micro's 
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Thus SOUND -1,ASC"Q",Ø,ø will produce 
the SOUND "Q". The pound sign produces 
the word "pound", and so on. These may 
be easily accessed with the following 
simple program given in the speech 
system user guide: 
REPEAT: SOUND -1,GET,0,0:UNTIL Ø 

This will "speak" any key pressed, with 
the lower case letters producing a 
range of complete words. The following 
program will speak the whole vocabulary 
of PHROM A. This takes about two 
minutes, suggesting how well packed the 
data is. Traditionally stored data 
would require a 5@@k byte ROM to 
generate 2 minutes of speech. 


10 FOR A$ - 32 TO 29] 
20 SOUND -1, A%,Ø,Ø 
30 NEXT 


More words can be generated by 
combining sounds - for example EIGHT + 
TEEN (there is a special shortened 
version of the numbers for this 
purpose) and COMPUTE + ING etc. 


Words may also be called up by a 
direct address, and a particular 
advantage of this is that the data for 
the word can be in RAM. This enables 
the user to experiment with the sounds 
produced. And although the data blocks 
used are so complex as to preclude the 
creation of new words, it would 
certainly be possible to edit data for 
words already supplied. It is also 
possible to access speech from machine 
code uSing special OSBYTE and OSWORD 
calls. This is documented in the 
clearly written manual. 


As I hope I have implied, using the 
system is extremely easy, moreover the 
quality of reproduction is extremely 
good. There are just three keyboard 
letters that do not sound quite right 
(B, D and M), but for the rest, the 
words are not only understandable, but 
clearly articulated in an obviously 
English accent which still retains 
Something of its maker Kenneth Kendall. 
(It was Kenneth Kendall whose voice was 
used to create the data for PHROM A.) 


The speech upgrade provides a most 
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facilities, and compares very 
favourably in quality with add-on 
speech units for other micros. Its most 
obvious immediate use would appear to 
be for the visually handicapped, and in 
primary education, where programs of 
the speak and spell’ variety could be 
used as a teaching aid in spelling and 
simple arithmetic. One other area of 
application could be in permitting 
computer output when the operator 
cannot see the screen, or when the 
Screen is in full use, as for example 
in 'speaking cursor co-ordinates' in a 
screen drawing program. It could also 
enhance strategy games such as chess or 
Star Trek; though PHROM A vocabulary 
could prove somewhat limiting. 


THIS MONTH'S MAGAZINE CASSETTE CONTAINS AN AUDIO COPY OF THE SPOKEN VOCABULARY C 


PHROM A 


ROTATION UPDATE 


by Robert Alexander 


The new program lines listed below 
should be typed in after loading the 
original program. 


ett 00 0 6.0 0 09 0000 € 000000 00600060 DO a 000 00000000 00000 6 OO 00 00 0000 000000000 


.. „. . . o. o. o. . „. %. „. e. . o. o. 9, o. 9,0, . ». 9. „. . o. „. %. . 9. d . „. . 6. v. L. ». . 4. ». v. o. e. o. o. e. d d d A e. . 


1985 moveamnt$-50 

1820 UNTIL key=13 OR key=93 OR key=127 

OR (key>134 AND key<14@) OR (key>64 AN 
D key«69) 

1945 IF (key>64) AND (key<69) THEN PRO 
Cmove 

2400 DEF PROCmove 

2410 REM Move object about viewing scr 
een 

2420 LOCAL movex$,movey$ 
| : 2430 IF key=65 THEN movex%=moveamnt% E 
BEEBUG vol 1 no 1Ø contained an LSE IF key=66 THEN movex$--moveamnt$ EL 


interesting 3D rotation program which SE IF key=67 THEN movey%=moveamnt% ELSE 
could be used to expand, contract or moveys=-moveamnt% 


rotate any object. Here we show how to 2440 FOR count%=1 TO points$ 
include the third basic graphic 2450 X=X(count%) : Y=Y (count) 
transformation, that of translation. 2460 X(count%)=X+movex% 
The keys used to move the shape are :- 2470 Y(count%)=Y+movey3 

A - right C - up 2480 NEXT count$ 

B - left D - down 2490 ENDPROC 
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ROGRAM LISTER 
by Elizabeth Hanson 


This program will list any Basic program 


un 
C Y 

ov SCH SON 
0 


«e ste 


(16k) 


(or any text file) stored in the 


computer, in a completely readable format, very similar to that produced by the LIST 
command. Its particular value is in listing programs which the command "LIST" will 
not work upon; ie programs which have become "damaged" in the computer, resulting in 
the familiar response, "Bad Program". It will even list theremains of a program that 
has been partly overwritten, by loading in another shorter program on top of it. 


LISTER was written for use with the 
BEEBUG "RESCUE" program (Vol. 1, No. 8, 
p. 3), to look at and fix "bad 
programs". RESCUE is an extremely 
powerful utility which will heal "bad 
programs" miraculously. A copy of 
RESCUE is included on this month's 
magazine cassette. 


LISTER allows you to examine a "bad 
program" before attempting to repair 
it, though it has many other 
applications, such as reading partially 
overwritten programs. LISTER works by 
looking at the Basic tokens as they are 
Stored in memory, and converting them 
back to their original keyword format. 
The program is very small, just over 
one block, as it uses the look-up table 
in the Basic ROM at &8@6D (8897! in 
Basic II) to make the conversions. 


LISTER will not convert the line 
numbers following a GOTO, as these are 
Stored in code within the computer to 
save space. Note that for the sake of 
Speed (and the irregularity of the way 
the tokens are set up in memory), the 
word "AND" is printed as "ND". Also 
LISTER can be fooled by embedded 
Teletext colour commands, which it 
mistakes for keyword tokens, but this 
is not important for the uses for which 
LISTER is designed. 


Type in the program and save a 
copy, before use, as you would any 
Basic program. If your machine has 
Basic II you will need to alter line 
140 to: 

140 DEFPROCL: K%=-1: T$-&8071 
This is because the look-up table in 
Basic II starts at &8Ø71 not &8Ø6D. To 
tell if you have Basic II, type REPORT 
followed by Return - a copyright 
message will appear; if the date is 
1982 you have Basic II. 
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Assuming that you want to use 
LISTER to list a program already in the 
computer, you will need to change PAGE 
before you load in LISTER, this avoids 
overwriting the program already 
resident. Proceed as follows: 

MODE7 «return» 

PAGE-HIMEM-& 200 

CHAIN"LISTER" 


«return» 
«return» 


LISTER will then run and print 
"Address ?" on the screen as a prompt 
for you to provide a starting address 
for it to list from. This will normally 
be &EØØ, or &1900 if you have a disc 
system, but you can type in any address 
that you want. The listing will then 
start and will print in Ik blocks, 
after each block it will beep, and wait 
for you to press any key. It will then 
print the current address in red 
followed by the next 1k of program, and 
SO on. 
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HE NE EPS 


)N AND SEIKOSHA 


by David Tall and Adrian Calcraft 


EPSON RX80 and FX80 
PRICE RX80 £340 inc VAT 

FX8Ø £480 inc VAT 
Reviewed by David Tall 


Having decided to purchase an Epson 
MX8Ø printer of my own after a long and 
happy experience with the machine at 
work, it came as something of a shock 
to learn that it had been withdrawn 
from sale! In its place are two new 
models, the RX80 and the F x89. Both 
greatly update the earlier printers, 
operating at twice the speed (168 
characters per second), with an extra 
set of italic characters in ROM as well 
as the standard format. Each has a new 
elite typestyle in addition to the 
traditional Epson print, and both 
styles have a variety of sizes: normal, 


A few examples of FX80 printing: 


Tris 18 quof dm pr ane 

and this is ESTE. 

This is proportional emphasised Italic 
and this is candensed superscript. 

This is enlarged, 
emphasi sed 

Se doubled. 


Billie å 


Some examples of user-defined char: 


Ww XP d TVØWWZ NE 
HARE TU DSE Z 
bos AKL 

ana r CO IAT 2 1 


2k End s 


condensed, and 


expanded/ 
condensed, applying both to standard 


expanded 


print and italic. The symbols may also 
be emphasised by repeating each dot one 
place to the right and double printed 
by repeating one position down, giving 
a wide range of print sizes and degrees 
of boldness. Though some combinations 
are not possible, there are sixteen to 
choose from, together with another 
Sixteen corresponding styles arising 
from printing Superscripts and 
Subscripts, making 232 for each 
alphabet, a total of 64 including 
italic. Both printers can operate in 
high resolution bit-printing mode with 
the RX8@ having the same facilities as 
the MX89 and the FX80 having a few 
extras. As with the two different 
versions of the MX80, the cheaper of 
the two new models handles only 
pin-feed paper whilst the other also 
has friction feed enabling it to take 
individual sheets. 


The additional cost of the  FX80 
arises partly from the inclusion of 
optional proportional spacing, but is 
mainly due to the incorporation of an 
area of RAM used either as a 2k print 
buffer or for programming up to 256 
user-defined characters. It was this 
latter facility that caught my eye and, 
after shopping around to get a more 
acceptable price, the FX8Ø arrived 


9,9 0.9, 9 0 00 6 € 0 0 O 0,0 € 0, O 9 6 0 0 .O 0 9 O ww 


3por tional spacing but is ma 
an area af RAM used either as a 2K 
to 256 user-defined characters. 
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the FX80 arrived looking ver 
romising to be far more versatile. 
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e top of the machine instead of 
down and unscrewing the bottom. 
ed one inch above the next print p 
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but promising to be far more versatile. 


On setting up the machine I was 
pleasantly surprised to find that the 
dip-switches which initialize the 
printer were conveniently accessed from 
the top of the machine instead of the 
old system of turning it upside down 
and unscrewing the bottom. A new 
paper-tear bar is now situated one inch 
above the next print position instead 
of the old system which wasted half a 
page of paper every time. But this was 
countered by a more sophisticated 
method of paper insertion which seemed 
hell-bent on chewing every piece of 
paper inserted. Even after a week's 
use I have failed to master it. 


The user-definable character 
facility is a joy. I had considered 
purchasing the NEC  PC8023BE-C printer 
because of its Greek characters but, 
frankly, the ill-formed Greek alphabet 
on that printer is a disgrace. A 
weekend's playing around with the Epson 
user-definable capability gave me a 
satisfactory Greek alphabet and a whole 
array of mathematical symbols. Each 
character is defined on an array with 9 
vertical positions and 11 horizontal 
ones. In practice only 8 vertical dots 
can be programmed, omitting the top or 
bottom line, and if the full 11 
character width is utilized there will 
be no gaps between characters. When 
printed in the normal typeface the 
horizontal points are  half-spaced, 
giving an acceptable quality, but it is 
not possible to program adjacent 
horizontal points to improve the 
definition. Even so, the facility is 
extremely versatile with programmable 
specifications for proportional spacing 
and all the printing options mentioned 
so far. The user definable RAM has 


50000 
€ 0,0 & € € 6 0 0.06 0 6 0.06 O 8 O 6 6 6 60 O O 4 06080664 000 06 00 E .O O € € 6 O9 O O O O 9 & 000000000 *, 


9,0 M9 Ó 6,0 0 € 6 € € O 00 € 6 6 O 6 GO b e 6 0, O é 0 O 9 O 4, 0, 0 O 9 0 0 OG DE O à, U 6 9 9,0 O € O M * € O 9 € € € 9 e 6 € 


DOC 
a m e o e e to o o, 0 0, 9,9, 9,9, 9,9, CC STATS a a a a a" a a a a a a e n n a e m ^ n a a a 4 d a A t e 


SEIKOSHA GP-250X 
PRICE £276 inc VAT 
Reviewed by Adrian Calcraft 


The 250X is the latest printer to be 
produced by Seikosha. It is compatible 
with the BBC micro, as are their 
previous two printers, the GP-8ØA and 
the GP-199A. The 100A was reviewed in 
the March issue of BEEBUG. The 250X is 


really a much improved version of the 
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characters, making a total of four 


alternative alphabets available at any 
stage. 


As far as I can see, every attempt 
has been made to make the control codes 
upward compatible from the old system 
so that existing software should run in 
conjunction with the new printer. The 
inability of the MX80 to maintain the 
correct page length in double printing 
has been rectified, allowing this 
bolder type-face to be used for 
word-processing. Of course, the print 
is still clearly dot-matrix quality and 
not up to the standard of daisy-wheels. 
Even so, in the few days I have used it 
I have become very impressed with its 
clean, no-nonsense elite typeface and 
its classier emphasised normal print. 
As a curiosity, the condensed 
Superscript can be used with a narrow 
line-step to produce stupendously small 
print of amazing clarity. 


The | control codes sent to the 
printer to modify the typeface are 
logical but often cumbersome. To 
obtain a superscript requires the 
command ESC S Ø which is sent as 
VDU1,27,1,83,1,0 and it must later be 
cancelled by ESC T (VDU1,27,1,82). So 
simple print modifications often 
require great strings of numbers to 
effect them. For word-processing a 
selection of these can be programmed on 
to the BBC user-defined keys but the 
present generation of  word-processors 
for the BBC computer are not versatile 
enough to match the Epson printer, 
being unable to cope with proportional 
spacing or print of varying size. 
Clearly a later generation of software 
and printers will resolve these 
differences. Until that happens, in 
this price range the BBC computer and 
the Epson printer make a formidable 
combination. 


o D H 
„„ „ „„ „„ %%% %% % % %% A A 0 9 0 € 0 0.0 0.0 0o ne een ae O O € 6 O 6689 € 
.9.9,9,9,9,9,9,0,0,9, 0 00 000 000 9 9 0 00 5,0, 6,9. 9.0 0.0.0.0.0.09.0.0.0.9 9 00.0.€4.9.0.0.6.0.0.0.0.0.0 
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1ØØA, So to avoid repetition we will 
concentrate on the new features offered 
by the 25ØX. 


The appearance of the 250X is 
identical to the 100A except that a 
small panel on the front containing two 


push buttons. The paper feed is of the 
"tractor" type, requiring special paper 
with holes. This is easily and cheaply 
available but does prevent single A4 
Sheets from being used in the normal 
way. I experienced no misfeeds while 
using the machine. 


The printing method is impact dot 


matrix, which produces a noisy whine, 
which is reduced somewhat by the 
baffle. The characters are produced on 


a 5x8 matrix, allowing one substantial 
improvement over the 109A, 
"descenders". This means that lower 
case letters such as "p" "q" and "g" 
have tails which descend below the 
line. Although the difference is only 
one dot, it eases reading greatly and 
gives a more professional finish. 


A set of 116 characters is available 
and the machine also has a switch to 
enable the choice of one of four 
different language character sets. In 
addition to this, a new feature is the 
ability to have up to 64 user-defined 
characters. Once defined these will 
remain available for use until the 
printer is switched off. Double height, 
double width or double height AND 
double width character print out is now 


possible, which is very handy for 
DX OQ KJOOO00000000000000000000000000000 00000000000000060000000000000000 
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such as the Epson 


abcgqefaoahi.kelimuo 


LN pra UE nd 


The underline 
printers 
is unfortunately 


implemented on the new 


character 


still not 
Seikosha. 


Graphics printing is possible but 
requires a special screen dump program 
to control the printer. See this issue 
of BEEBUG for details of a 25@X screen 
dump. Another improved feature is the 
print speed, the 100A printed at 30 
characters per second, the 250X prints 


at 50. This speed difference is very 
noticeable, and is a welcome 
improvement. Unlike the 100A this 
printer can be used with either the 


serial interface Or 
Centronics interface. 


the parallel 


which may 
include the 


Other features 
occasionally be of use, 
ability to specify: 

1) The actual space moved when a 
linefeed is issued. 

2) The number of lines per page. 

3) The amount of space between 
character cells. 

4) A given print sequence which will 
be memorized and repeated at will. 

5) The print position for character 
data. 


As mentioned earlier the front face 
has a panel with two push buttons. 
These are marked STOP and RESET. The 
stop button will sound a warning buzzer 
and pause any further printing until 
the reset is pressed. This is handy to 
check the printer, if a misfeed or 
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other problem is suspected. The buzzer 

will also sound and printing cease if 
the machine detects that it is about to 
run out of paper. Very useful as you 
can confidently leave the machine to 


print unattended. Printing can be 
resumed when paper has been inserted. 


This printer is only slightly more 
expensive than the GP-1ØØA and offers a 
lot of features which you will 


undoubtedly find useful from time to 
time. At the price of about £280 it is 
Still one of the cheapest machines 
available, offering features usually 
found only on more expensive printers. 
The print quality is sufficient for 
markedly 


home ` use (though still 


AIN TEASER 


inferior to the Epson). AS a 
programmers tool this printer is very 
good indeed. I would have thought, 
however, that the print quality is not 
sufficiently good to be used outside 
the home or very small business 
environment. 


One final point is that the manual 
supplied with the machine is very hard 
to follow, definitely user unfriendly 
and will probably prevent many people 
actually using several of the features 
they have paid for. 

Thanks to  Technomatic of Edgware 
Road, London for supplying our review 
machine, and to Clive Rodmell for his 
useful comments on the 25@X and the 
Screen dump 


d S. 


by Gareth Suggett 


Unpredictable Iterations 


In previous issues we have asked you to 
investigate "iterative" processes 
("Persistence" Vol 1, No 10, P8; "The 
3x+1 Problem" Vol 2, No 2, P15) in 
which a number was chosen, and a rule 
applied repeatedly to it to generate a 
series of numbers. 


Such a series can only exhibit three 
types of behaviour: 


]. Reaching a single number, at which 
it 'sticks'. 

2. Reaching a cycle of two or more 
numbers round which it goes forever. 

3. Going on forever, never repeating 
itself. 


(The third option is not possible in 
"Persistence", where the numbers 


available are finite in number - the 
n-digit numbers). The interest of such 
problems lies in the difficulty of 
predicting from the initial number, 
which of the three types of behaviour 
the sequence will exhibit. 


Another such iteration is to start 
with any number. Stop if it isa 
palindrome (the same forwards or 
backwards), otherwise add to it the 
number formed by reversing its digits. 
Most numbers reach a palindrome after 2 
or 3 steps, 89 and 177 give quite 
interesting results, but the problem is 
chiefly remarkable for the behaviour of 
196. 


Can you find other such 
unpredictable iterations? The field of 
iteration need not be numbers. 


Conway's "Game of Life" (Vol 1, No 19, 
P35), is a classic example. The 
two-dimensional nature of "Life" 
produces an added richness, but the 
three basic types of behaviour 


(stabilisation, oscillation or infinite 


development) remain. 


Can anybody come up with a three (or 
four?) dimensional variation on this 
theme? 


(New O.S.) - M. Mc.Namara 


ETTE 2 is used to su and COPY keys, these keys behave like the 
function keys do when used with shift or control, thus shift-COPY generates code 139 
- Start box and Ctrl-left-cursor generates black background. 
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gested 97 


eros den od 7 USING FILES (PAR 
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T 4) 


by Sheridan Williams 


We continue our series on using files by giving two demonstration programs that 


use random access files. The second of these could form the basis of a very 
sophisticated business system, possibly allowing your BBC micro to earn its keep if 


you have bought it for business purposes. 


One way to envisage a random access 
file, is to think of it as a large 
array that doesn't use any of the 
Beeb's precious memory (RAM). Like an 
array you can access any element of the 
file, however the access time is longer 
than it would be with an array, taking 
anything up to 1 second in the worst 
case. This is a small price to pay for 
an array that could be perhaps 40,000 
elements long (using ‘integers’ on a 
200k per side disc). 


THE PTR FUNCTION 

The PTR function is the key to 
random access files. By using PTR 
followed by PRINT# or INPUT# we can 
read or write to ANYWHERE within the 
file, instead of the next immediate 
record as we had to with serial files. 
Care must be exercised, because a 
miscalculation by only ONE byte will 
cause an error and hence make an item 
of data unreadable. In the example 
below we are going to write 1909 
integers to the file. If you read 
page 330 of the User Guide you will see 
that integers occupy 5 bytes on the 
file. Armed with that knowledge we set 
about writing our numbers 5 bytes 
apart: for example if we write the 
first number at position 1 on the file, 
we must write the second number at 
position 6, and so on. In fact the 
simple formula i%*5 calculates the 
start address of each number: this 
gives addresses 1, 5, 19 etc for 
records 1, 2, and 3 etc. 


So here is the program that first 
writes 1000 random numbers to a disc 
file, it then allows you to access any 
one of the 1000 random numbers 
immediately. You can witness the disc 
buffer in action here: try accessing 
record 199, then record 119, and you 
will hear no disc movement. However, if 
you access record 1 followed by record 
190 you will hear the disc start. AS 
the di buff 
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find no extra disc reads are necessary 
if you read record 1 followed by record 
509 (because 50 records at 5 bytes each 
is only 259 bytes). 


Here isa brief description of what 
each statement does:- 


20 attempts to open the file for 
INPUT. If a file is to be used for 
both reading and writing it must be 
opened for INPUT and not for 
OUTPUT. However , it is not 
possible to open a file for INPUT 
if it doesn't already exist. 
Whether the file exists or not is 
detected in line 30 because the 
channel allocated will be zero if 
the file doesn't already exist. In 
that case the file is opened for 
OUTPUT (thus creating it) and 
closed immediately. Now when we 
re-execute line 29 the file exists. 

4g Set last random number generated to 
Zero. 

69 Start loop at one. 

70 Generate a new random number  (n$) 
that is greater than the last. 

80 Move pointer to position i%*5 and 
PRINT the random number to the file. 

99 Display on the screen the number of 
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times round the loop. 
199 Increment the loop and continue. 
148 Move pointer to the required 
position and INPUT the number from 
the file. 


The following program uses a random 
access file to hold the "People" file. 
(Defined in "Files Part 3"). Use this 
program as a basis for study as it has 
lots of potential. Each person is 
given a number between 1 and 199, (an 
empty 200k disc would hold nearly 6000 
records, but restricting it to just 106 
gives ample demonstration capabil 
ities.) 


The program has four operations - 
initialise, write, read and end. 


Initialise - This will clear (erase) a 
record or set of records by 
writing spaces in place of 
data. It is essential to 
initialise records 1 to 100 
before using any of the other 
options as this will check that 
there is enough room on the 
disc. 

Write - Use this option to enter data 
about a person. You will be 
asked for the record number 
which is the position on the 
file that you want the record 
placed. 

Read - Use this option to examine what 
is in any particular record. 
(You must not read a record 
that has not been initialised, 
otherwise you will get a read 
error.) 

End - You MUST use this option to 
Stop the program, otherwise the 
most recent contents of the 
disc buffer will not be stored 
on disc. 


NOTES ON THE PROGRAM 
Lines 30, 48 - As explained in the 
program above this is a 
precaution in case the file 

. doesn't yet exist. 

Line 50 - rl represents the record 
length. We set it to 34 in 
our case because this is 

the length of the data plus 

TWO characters (as 

explained in parts 2 and 

3). We need rl in order to 

find the start add 
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eac record. For example 
in line 2140 we want to 
initialise record 12 say, 
then we print on 32 spaces 
starting in position 12x34. 


Lines 1000-1040 — This function prompts 
you to enter a record 
number, and returns with 
this value. 

Line 6000 - This function is required 
to pad out each field to 
its specified length. 

Line 7065 - This string makes the 
printout much clearer, 

Line 8000 - Error 6 is generated if the 
file is not initialised 
when an INPUT# takes place. 

Line 8018 — If the user tries to end by 


pressing 'Escape' he is 
reminded to finish via 
option 4. 


19 REM BEEBUG demonstration of 
random access files 

20 ON ERROR GOTO 80990 

25 filenameS="PEOPLE" 

30 c=OPENIN filenames 

AQ IF c=@ c=OPENOUT 
filenameS:CLOSE#c:GOTO 30 


59 rl=34 

60 nul$z"";REM no spaces between 
quotes 

70 sp$=" ";REM one space between 
quotes 


100  REPEAT:CLS 

1198 PRINT TAB(7,5)"1. Initialise 
the file" 

120 PRINT TAB(7,6)"2. Write a 
record" 

130 PRINT TAB(7,7)"3. Read a 
record" 

14Ø PRINT TAB(7,8) "4. End." 

15Ø PRINTTAB (4,19) ; CHR$131; "WHICH 
OPTION? "; | 

169 option=GET-48 

179 PRINT ;option 

180 IF option-] PROCinitialise 

199 IF option=2 PROCwrite 

200 IF option=3 PROCread 

219 IF option=4 CLOSE#c : END 

220 UNTIL FALSE 


999 END 
1900 DEF FNrecord number 
1010 REPEAT 


1920 INPUT"Record number (1-199) 
" records 

1930 UNTIL record$»-] AND 
record%<=1ØØ 


Volume-2 Issue-3 


23 


1999 70900 DEF PROCread:LOCAL q 
2000 DEF PROCinitialise | 7919 | 
2010 LOCAL r%,from%,to% PTRfc=FNrecord number*rl : INPUT#c ,rec$ 
2020 rec$=STRINGS(32,sp$) 7030 sur$ =LEFTS(rec$,15) 
2100  PRINT'"From | 7040  title$-MIDS$ (rec$,16,19) 
"; :Érom$=FNrecord number 7050 sex$ =MIDS(rec$,26,1) 
2119  PRINT"To ";:to%=FNrecord number 7060 dob$ =MIDS(rec$,27,6) 
2120 CLS: PRINT TAB(7,10);"I NI TI A 7065 LS="<"+CHRS13+CHRS19+">" 
L IS ING" 7070 PRINT“ Record 
2130 FOR r$-from$ TO to% contains" '">"surSLStitleSL$sexSLSdob$"< 
2140  PTRiic=r%*rl:PRINTHC,rec$ " 
2150 ` PRINT TAB(19,12) ;r$ 7080  PRINT"Press any key when 
2160 NEXT r$ ready" :q-GET 
2170 ` ENDPROC 70980 ENDPROC 
2999 | 8000 ON ERROR OFF 
3000 DEF PROCwrite 8005 IF ERR=6 PRINT''"File not 
3020 INPUT! "Surname" ,sur$ initialised at this point":GOTO 8Ø3Ø 
3025 IF sur$=nul$ ENDPROC 8010 IF ERR<>17 REPORT:PRINT "at line 
3028 sur$=FNpad(sur$,15) no. ";ERL:CLOSE4]7:END 
3030  INPUT"Title * ti tles 8020  PRINT''"you must end using 
3035 IF title$=nul$ THEN 3920 option 4" 
3038 title$=FNpad(title$,1Ø) 8030 q-INKEY(209):GOTO 199 
3040 REPEAT 
3050 INPUT"Sex (M/F)",sex$ DEE 
3060 UNTIL sexS="M" OR sexS="F" OR. 
sexS=nul$ Using this program it is possible to 
3065 IF sex$=nul$ THEN 3930 record data on thousands of people 
3080  INPUT"Date of birth permanently. Records can be updated, 
(DDMMYY) " ,dob$ viewed or erased quite simply. The 
3090 IF dob$znul$ THEN 30460 principles behind this program are 
3100 dob$=FNpad (dob$,6) fundamental to virtually all file 
3110 recS$=sur$+title$+sex$+dob$ processing. 
3120 
PTR#cC=FNrecord number*r1l:PRINTfc,recS NEXT MONTH 
3200  ENDPROC ` We shall look at methods of 
3999 calculating the addresses of records on 
6000 DEF file. Also we will look at 
FNpad (Q$, L) =LEFTS (QS+STRINGS (L,sp$) „L) index-sequential files as an 
6999 alternative to random access files. 


1991 USES FOR A SQUARE BRACKET - Malcolm Davis. 

Did you know that typing '[' then «return» prints out the current value of the 
assembler's program counter in hex? Try it on power up and you should get '9900'. It 
can be altered by setting P% and is not affected by soft or hard resets. The 


longhand way to find its value in hex is to type PRINT ^P$ «return». Also CTRL [ is 
the same as pressing the Escape key! 


)ODDOODOODOOOOOOOODOOO OO OU eR eb DK BK DK AK DK AK SKK AA SENSE SES SKE PEISEN SEE TESE SEE EE SEE EEE EEE EEE 
rr . . . 
NO SN RN BE eee eee eee re- I ee eee e c eee eee I eee - 
r e eee. . rr 


CIRCULAR CIRCLES ON A TELEVISION Richard Russell 

When writing graphics programs, particularly those using geometric shapes, bear 
in mind that the BBC Micro's "graphic units" are not Square when displayed on a 
properly adjusted TV set or monitor. In fact they correspond to rectangles whose 
height/width ratio is approximately 1:1.084. As an example, if you want to draw an 
accurate circle the program must be written as if it is drawing an ellipse whose 
horizontal axis is 1.084 times its vertical axis when measured in graphics units. 
[The above applies to a correctly adjusted television screen. Some monitors have 
different aspect ratios, and in any case it is sometimes possible to alter the 
height control of the TV/monitor to correct this. Ed 
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EXPANDING RETURN OF THE DIAM 
by R. McGregor and Alan Webster 


An adventure is a game in which you 
travel about in a world described to 
you by the computer. The computer 
displays where you are, what you can 
see and in which directions you can 
move. You use commands such as "GET", 
"KILL" and "INVENTORY" and move using 
directions like "N", "E", "S", "W" and 
Sometimes "U" for up and "D" for down. 


The first thing you have to do when 
writing an adventure program is to make 
upa map and give each position a 
number. Figure 1 shows the map for the 


small adventure, "RETURN OF THE 
DIAMOND", published last month. As its 
name suggests your mission is to find 
the "great diamond", and return it to 
its rightful owner at the "diamond 
castle", The words in capitals in the 
figure are the place names, and those 
in lower case are the items which are 
originally found there. So as not to 
spoil the game completely however, we 
have not revealed where the diamond is 
located. 

If you play an adventure game such 
as Return of the Diamond, you will 
almost certainly need to produce a map 
like this as you begin to find your way 
around. It is also the starting point 
when writing such a game. You must 
decide on the number of locations, the 
way in which they are connected, and 
the objects to be found in each. 
Probably the best way to illustrate how 
the program has been constructed is to 
show how to expand the existing 
adventure. This is an interesting task 
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its own right, and the way in which 
the program has been constructed allows 
relatively easy expansion to a 
considerable degree of complexity. 

The details which follow will make 
more sense if you have taken a brief 
look at the program (this was listed 
last month, and also appears on last 
month's magazine cassette), and as an 
aid, a list of procedures is given 
here. These are called from the main 
program loop on lines 1@ to 14@. 


EXPANDING THE PROGRAM. 


Let us see how to incorporate the 
following modifications: 
1. Add an extra location 
2. Add an extra item 
3. Add an extra command 


ADDING A LOCATION 

To add an extra location to the 
game we need to know where we are going 
to put it, give it a number and define 
the directions in which it can be 
accessed. Suppose the new location 
(location 19) is to the right of the 
forest (location 6), and connects to 
the forest only. 

First we have to increase the array 
Size for the number of locations. This 
is at line 180. If we are adding just 
the one location to our original” 
program which had nine locations then 
we need to change lines 180 and 190 to: 

180 DIM place$ (19) 

199 FOR i=1 TO 1Ø 
Secondly we need to create a 
description for our new location. This 
I shall call the Library. The 
following change is needed to line 269: 

260 DATA in a dark passage,in the 

Library 

Thirdly we need to alter the direction 
pointers to take account of this new 
location. To do this replace the value 
9 with 19 in lines 270 and 280. Thus: 

270 DIM newpos(1@, 4) 

280 FOR i=1 TO 19 
It is also necessary to alter the data 
at line 340 so that the EAST pointer 
for location 6 points to location 19. 
The pointers for locations 4, 5 and 6 
The first 
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four numbers are the pointers for 
location 4 (N, E, S and W). The first 
is zero. This means that you cannot go 
North from location 4. The second is 
5, meaning that you can go East from 
location 4, and will arrive at location 
5, and so on. The middle four pointers 
on line 349 are for location five, and 
the last four are for location six. It 
is this that we must alter to indicate 
that location 6 leads East to the new 
location 10. Doing this gives us: | 
340 DATA 0,5,7,0,2,6,0,4,3,10,9,5 
Now we need to create the pointers for 
location 10. This we shall do on line 
355 by typing: 
355 DATA 0,0,0,6 

The first 3 zeros indicate that there 
are no exits to the North, East or 
South. Item 4 indicates that going West 
from location 10 takes you to location 
6. 


ADDING AN ITEM 

The second part of our expansion is 
to introduce a new item. This item is 
to be a BEEBUG magazine and we will put 
it in the library...where else! To add 
this extra item we need to expand the 
arrays which hold the 
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information. These arrays are at line 
360 and hold the detailed description, 
the brief description and the location 
number respectively. 
360 DIM item$(7),itemname$ (7), 
itempos(7) . 
and line 370 needs to be changed to: 
370 FOR i=1 TO 7 
Next we need to give the extra data 
which was outlined above. To add this 
we shall insert it at line 455. 
455 DATA a precious BEEBUG magazine, 
BEEBUG, 16 
and alter these further lines: 
939 FOR i=] TO 7 
1330 FOR i=1 TO 7 
1660 UNTIL no>@ OR i=7 
To give the BEEBUG magazine the 
importance it deserves, we can make a 
condition that you can only finish the 
game if you have it in your possession. 
To do this we need to change the 
winning condition at line 1170 to: 
1178 won=((position=8 AND itempos 
(2)=8) ANDitempos (7) =) 
and because of this we need to prolong 
our lamp life, so change line 610 to: 
610 reallit=3.4 
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The. third part of the expansion is 
to add an extra command. The command 
that I shall add is one which enables 
the player to quit the game at any 
stage, whereupon the computer tells the 
player his score and then ends. To do 
this we need to expand the array which 
holds the commands. Alter lines 460 and 
470 tos 

460 DIM com$ (8) 

470 FOR i=1 TO 8 
Now we need to add our command to the 
data list in line 509. 

500 DATA GET, TAKE,ON, LIGHT, 

OFF, DROP, KILL, QUIT 
and add a line 1955 to deal with the 
command when it is met. 

1955 IF c$="QUIT" PRINT; PRINT score: 

PRINT "Goodbye" : END 


That completes our simple 
expansion, but with over 16k of space 
left on a 32k machine, you have plenty 
of room for your own expansion. You 
could for example make the castle 
multi-roomed, and introduce new 
problems to solve and dangers to 
overcome, Alternatively a look at the 
way in which the adventure is written 


may give you ideas for writing your 
own 


LIFE COMPETITION 


In Vol. 1 No. 19 we included a 'LIFE' program, to simulate the growth of a colony of 
frogs. We set a competition for the most interesting pattern within 199 generations. 
As was made clear, most interesting means most interesting to the editor. We have 
now sorted through the entry and have selected the winners of the prizes. 


Richard Porter - Prize £260 Steve Broderick - Prize £10 


Place this formation centrally. 5 the bottom right of the 
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ISC SECTOR EDITO 


0.9* Program by Mike Ball 


* (32k) 


This excellent utility allows you to read, edit and write to and from any part of a 
disc directly. You can as a conseguence recover files lost by accidental deleting, 


by partial overwriting, or by certain kinds of disc or drive fault. 


DISC SECTOR EDITOR 
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ta rewrite sector, BEI to abort. 


When you run the program it asks you 
first which drive you are using, and 
then which track and sector of the disc 
you wish to look at. Discs have 19 
Sectors per track, and either 40 or 89 
tracks. There are thus either 499 or 
800 sectors on each side of a disc. 
The syntax is Track, Sector. If you 
wish to look at sector 3 of track 2, 
enter "2,3", and so on. Alternatively 
you can Tab along and enter a filename 
in place of a track and sector. On 
pressing Return, you will see the 256 
bytes of the named sector (or the first 
sector of the named file) displayed on 
the screen in an 16 x 16 format in hex, 
and alongside in ASCII. You can then 
use the cursor keys to move to any 
chosen byte (either in the hex or the 
ASCII table), and either may be edited 
as normal. When you do this you will 
See the corresponding change in the 
other table. When you have finished 
editing a sector you can choose to 
abort, or to write back the edited 
sector to the disc, so as to replace 
the old sector with the new. 


CATALOGUE SECTORS @ AND ] 

Perhaps the most interesting two 
sectors of the disc are Ø, and 1 of 
track Ø. These contain the catalogue 
information, including the names of all 
files on the disc and pointers to the 
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these which need to be edited to 
retrieve lost programs or data 
(assuming of course that all or part of 
the contents of the file still exist). 


Table 1 gives the format of sector 
Ø. Its 256 bytes are completely filled 
by the 31 possible file names of 8 
bytes each plus the first 8 bytes of 
the disc title. In our view it would 
have been useful to take up two sectors 
with this information so as to allow 
more than 31 files per disc, and file 
names of more than 7 characters (the 
eighth is the directory). 


As an experiment with the editor, 
run the program, then insert a disc 
with a number of files on it, and call 
up sector @ of track 0. You will see 
the various file names listed in ASCII. 
You may edit these as desired. For 
example you could generate a red title 
(in mode 7) for your disc by making the 
first byte on the disc &81. If you 
press the Copy key, the disc will be 
written to with the editings you have 
created, and if you exit the program 
and type 
*CAT «Return? you should see a red disc 
title. File names should not be 
coloured because this confuses the disc 
filing system. If you wish to make 
your disc uncataloguable, you can do 
this by replacing the first 4 bytes of 
Sector zero with &17, Ø, Ø, Ø. The 
effect of this is to turn off the WDU 
controller chip at any time when *CAT 
is performed. Pressing Break will 
recover the chip, but without allowing 
the disc to be read. 


Files can become lost or corrupted 
for a number of reasons - they may have 
been accidentally erased, or there may 
be a disc fault. In either case the 
disc editor can enable you to retrieve 
Some or all of the file. The reason 
for this is that deleting a file simply 
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all information about it, 
file intact somewhere on the disc. Of 
course if you save further data, it may 
well be overwritten. The first thing 
that you need to know when attempting 
to recover a lost file is at what 
sector the file begins, and how long it 
is. Both these pieces of information 
can be ascertained by typing *INFO 
filename - before the file is 
corrupted; and it may well be worth 
printing out *INFO *.*<Return> on 
important discs whenever new files are 
added. If you do not have this 
information, then you must search the 
disc, sector by sector until you find 
the start sector of the lost file, and 
its approximate length. You then need 
to create a new filename and 
appropriate pointers in sectors Ø & ] 
of track zero using the editor. Sector 
Ø is easy, and may be accomplished by 
referring to table 1, and examining a 
disc with known filenames. Sector ] is 
more complex. Table 2 gives the 
format. You will notice that the 
number of sectors on the disc may be a 
19 bit number, and that the top two 
bits are stored in a different byte. To 
create a new file, you must increase 
byte Ø5 by 8 to correct the file count. 
Next you will need to add 8 bytes of 
data to the appropriate storage map. 
Table 2 gives the location of these 8 
bytes, while table 3 gives their 
contents. 


In order to help clarify this, we give 
below a step-by-step instruction list 
for recovering a lost file once you 
know its start sector (a file always 
starts at the beginning of a sector), 
and its approximate length in bytes. 


1) Find the first free 8-byte filename 
block in sector Ø and edit in the 
name and extension that you require. 

2) Re-write sector Ø and then bring in 
sector 1. Increase the count of the 
number of files (byte &05) by 8. 

3) Find the first free 8-byte storage 
map, which should have the same 
initial byte address as the filename 
block used in sector 6. 

4) Enter the appropriate Load address 
in the first two bytes of this 
block. This will be &1909 for Basic 
and &0000 for data files. 

5) Enter the Execution address in the 
third and fourth bytes. Again this 
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e. 

6) Enter the Length of the file (in 
bytes) in the fifth and sixth bytes. 
Note that until a 16-bit second 
processor becomes available this 
value is not going to be greater 
than 64k (ie. &FFFF). 

7) Now the only concern is with the 
least two Significant bits of the 
seventh byte and the whole of the 
eighth byte, which hold a 19-bit 
value corresponding to the start 
sector for the file. If the file 
started on sector 5 of track 30 the 
start sector address would be 
3Ø*1Ø+5=3Ø5=&131. The binary 
equivalent of this is Øl 0011 0991 
So it is necessary to make sure that 
the bottom two bits of the seventh 
byte hold the binary value Øl (which 
will normally result in the byte &Ø1 
existing in this location as the 
rest of the byte is usually zero), 
and that the value  &31 (i.e. 
0011 0091) is placed into the eighth 
location. 


Re-writing sector 1, followed by a 
catalogue of the disc should now see 
your program or data returned. In a 
forthcoming issue we will be looking at 
Some utilities to make this process 
more of an automated one, and to make 
the search for the beginning of your 
file easier. 


TABLE 1 
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2 TABLE 3 


2,0.0,00,0,0,000 


Sector 1: 


$,9,9,9,0, 0 0 0 0 60,0, 490 0 6 006,990 00€ «0€ 00.06€ 9,9, 0,9 * 0€ 6 KC € 0 009 € 0€ 90 909,9 0000 


REM M.Ball VERSION 1A 
LOMEM=LOMEM+8- (LOMEM MOD 8) 
DIM blc% 256,dir& 256,blk$ 12 
D220:rcd$-20 


rwr%=FALSE 
hex$="9123456789ABCDEF" 225 
TRK3=Ø : SCT3=Ø 2 RSCT$-0 erer. 
fnm$=STRINGS$ (19," *) 200 *F 
ja X4,1 
AS=STRINGS (165, *) 210 *FX12,4 
220 
B 230 REPEAT 
11 5 j ro 240 ON ERROR GOTO 499 
250 PROCsget 


un 260 PROCread (TRK$,SCT$,blc$) 
9 1000709919, 270 IF rcd%<>Ø THEN SOUND1,-15,10,20: 


J PRINTTAB (49,5) ; "Disc error ";rcd%:GOTO3 
Je DISC SECTO op ELSE PRINTTAB(4Ø,5); STRINGS(2Ø," ") 
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298 PROCedit 

300 PROCwd 

310 IF rwr% THEN PROCwrite(TRK$,SCT$, 
bl cs) 

320 W028, 6, 31,79, 

330 IF rwr% AND rcd%<>@ THEN SOUNDI,- 
15,19,20:PRINTTAB(40,5);"Disc error "sr 
cd$:GOTO280 ELSE PRINTTAB(49,5); STRING 
$(20," ") 

340 PROCwd 

359 IF rwr% THEN PRINT"S e c 

e wr it t e n"s:SOUND]l,-15,1 
KEY (309) 

36Ø UNTIL FALSE 

37Ø END 

38Ø 

39Ø REM End of Program 

4ØØ VDU6 :*FX4,Ø 

41Ø *FX12,0 

420 *FX229,0 

430 MODE7 

440 REPORT: PRINT" at ”;ERL 

45Ø END 

46Ø 

47Ø DEF PROCwd 

489 VDU 28,0,31,79,24:CLS 

490 ENDPROC 

500 

510 DEF PROCread(trk£,sect£,blc£) 

520 blk%?6=&53 

530 PROCioset 

540 rcd%=blk%?10 

550 ENDPROC 

560 

570 DEF PROCwrite (trk%,sect%,blc%) 

580 blk%?6=&4B 

590 PROCioset 

600 rcd$-blk2?10 

610 ENDPROC 

620 

630 DEF PROCioset 

640 rcd$-0 : ?blk%=D% : blk%!1l=blc% 

650 blk%?5=3 : blk%?7=trk% 

660 blk%?8=sect% : blk%?9=8&2]1 

670 X%=blk%M0D256 : Y%=blk%DIV256 

680 A%=&7F : CALL &FFF] 

690 ENDPROC 

760 

718 DEF PROCdump 

720 VDU 28,0,22,79,6:CLS 

730 E%=blc% 

740 F$-blc$T256 

750 @%=2 

760 REPEAT 

TIO PRINT^E$-DlC$;:PRINT " * 

780 AS="" 

790 FOR X%=E% TO E$415 

800 Y$-?X$ 

810 IF (Y%<32) OR(Y$>122) THEN AS=AS+" 

" ELSE AS=AS+CHRS (VS) 


tor r 
5Ø,5:A=IN 
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820 IF Y%>15 THEN PRINT;^Y$; 
PRINT; ng ; Y$; w 29 H 
830 NEXT 
840 PRINT "*"AS"*" 
850 E%=E%+16 
860 UNTIL E$=F% 
870 ENDPROC 


890 DEFPROCsget 
900 RSCTZ=TRKS* 1 9+SCTS 
910 PROCwd 
920 PRINT"Hit 'N' for next sequential 
sector, or" 
930 PRINT"TAB to required input field 
, overtype and hit return." 
949 PRINT'"TRACK/SECTOR (Dec)";SPC(4) 
s "RELATIVE SECTOR (Hex) ":SPC(11) ; "FILEN 
AME (dir.name)" 
950 PRINTTAB (4) ; TRRK2;" „ ; SCT$; TAB ( 29) 
s CRSCT$ ; TAB(54) ; 
960 IF LEFTS(fnmS,1)="*"THEN PRINT fn 
m$ ELSE PRINT STRINGS (20, ) 
970 VDU 11:PRINT TAB(4) ; :C%=4:fnm$="" 
980 A=GET:IF A=9 THEN PRINT TAB((POS+ 
25) MOD75, 4) ; :C$=POS:GOT098Ø 
999 IF A=13 OR A=27 OR A=127 OR (A>13 
4 AND A«140) THEN 989 
1000 IF A=78 OR A=11Ø THEN RSCTS=RSCTS 
41: TRKSZRSCTSDIVI Ø: SCTS=RSCTSMOD1 Ø: s 
1960 
1910 AS=CHRS (A) : PRINT AS$;SPC(19) ; STRIN 
GS (19,CHRS (8) ) ; 
19020 INPUT LINE "" ASKS:AS=AS+ASKS$ 
1030 ok=FALSE 
1040 IF C%=54 THEN PROCipfn ELSE IF C$ 
=29 THEN PROCiprl ELSE PROCipts 
1050 IF NOT ok THEN VDU7:GOTO91Ø 
1060 VDU26:PRINTTAB (9,5) "Drive:";D%;SP 
C(3) Track:; TNS; SPC (3) ; "Sector :" ; SCT% 
;SPC (4) ; 
1Ø7Ø ENDPROC 
1Ø8Ø 
1Ø9Ø DEFPROCipfn 
11ØØ fnm$=A$ 
111@ IFLEN(AS)<3 OR MIDS(AS,2,1)<>"." 
THEN fnm$="%*INVALID*" : ENDPROC 
112@ PROCread(Ø,Ø,dir%) 
1130 DIRS=LEFTS (A$, 1) :FS=MIDS (A$, 3,7) : 
IFLEN(FS)<>7 THEN FS=F$+LEFT$ (STRINGS (6 
ef "),7-LEN(FS)) 
1140 off=0 
1159 FOR I%=dir%+8 TO dir%+248 STEP 8 
1160 svd=I%?7 : I$?7-&0D : fnt$=$1% : 
I%?7=svd 
1170 IF (F$-fnt$) AND (DIRS=CHRS (svd)) 
THEN off=I%-dir% : I%=99999 
1188 NEXT I$ 
1198 IF off=@ THEN fnm$="*NOT FOUND*" > 
ENDPROC 
1200 PROCread(Ø,1,dir%) 
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1230 TRK%=RSCT% DIV 19 

1240 SCT%=RSCT% MOD 19 

1259 ok=TRUE 

1260 ENDPROC 

1279 

1280 DEFPROCipr1 

1290 RSCT%=EVAL("&"+A$) 

1300 TRK%=RSCT% DIV 19 

1319 SCT%=RSCT% MOD 19 

1320 ok=TRUE 

1330 ENDPROC 

1349 

1358 DEFPROCipts 

1360 AS=A$+CHR$13 

1370 FORI%=1TOLEN (AS) :A2=138:X%=0:Ys=A 
SC (MIDS (A$,I%,1)) :CALL&FFFA: NEXT 

1389 PRINTTAB(4,4) ; s INPUT"" RRS, SCT 

1399 ok=TRUE 

1499 ENDPROC 

1419 

1420 DEFPROCedit 

1439 PROCwd 

1440 PRINT"Edit as required. COPY to 
rewrite sector, RETURN to abort.": 

1450 VDU 28,6,22,70,6,30 

1460 *FX229,1 

1470 REPEAT 

1480 K%=GET 

1499 IF K%=13 THEN rwr%=FALSE:GOTO16ØØ 

1500 IF K%=135 THEN rwr%=TRUE:GOTO16ØØ 

1519 IF K%<32 THEN GOTO16ØØ 

1520 IF K%=136 THEN IF (VPOS>Ø) OR ( (VPO 
S=Ø) AND (POS>Ø) ) THEN VDU8:GOTO16ØØ 

1539 IF K%=137 THEN IF (VPOS<15) OR ( (VP 
OS=1 5) AND (POS<64) ) THEN VDU9:GOTO16ØØ 

1540 IF K%=138 THEN IF VPOS<15 THEN VD 
U1Ø:GOTO16ØØ 

155Ø IF K%=139 THEN IF VPOS<>Ø THEN VD 
U11:GOTO16ØØ 

156Ø REM Not a control char, so this 


157Ø REM must be attempt to alter data. 


158Ø IF (POS<47)AND(FNS ch<>" ") THEN 
PROCxhex 


1599 IF (POS>48)AND(POS<65) THEN PROCxchr 


1699 UNTIL (K%=13) OR(K%=135) 

1610 IF K$-13 THEN CLS:PRINT TAB(15,8) 
"EDITING ABORTED 

1620 *FX229,0 

1630 ENDPROC 

1640 | 

1659 DEFFNs ch 

1669 A%=135 


1670 C3=(USR(&FFF4) AND &FFFF) DIV &1ØØ 


1680 RRS (CS) 

1699 

1700 DEFPROCxhex 

1718 IF INSTR (hex$ , CHRS$ (K%) )=@ THEN SO 
UND 1,715,100,8: ENDPROC 
1720 cux=POS:cuy=VPOS 
1738 REM Now alter screen 
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1759 IF (POS MOD 3)>@ THEN VDU 8 :REM 
Move to left digit 

1760 ldig$=FNs ch 

177g VDU9 ` 

1788 rdig$=FNs ch 

1790 REM Get new value for byte 

1800 new%=(INSTR(hex$,1dig$)-1)*16 + I 
NSTR (hex$ ,rdig$)-1 

1819 REM Get offset within sector 

1820 ofs$-VPOS*16 + (POS DIV 3) 

1830 blc%?0fs%=new% 

1840 REM Get posn of char on screen 

1850 cpos%=49+(POS DIV 3) 

1868 VDU 31,cpos%,VPOS :REM Posn for p 
rint 

1870 IF (new%<32) OR (new) 122) THEN PRI 
NT".":: ELSE PRINTCHRS (new$€); 

1888 VDU 31,cux,cuy 

1899 VDU 9 

1900 ENDPROC 

1919 

1928 DEFPROCxchr 

1938 cux=POS:cuy=VPOS 

1940 REM Get offset within sector 

1959 ofs%=VPOS*16 + POS-49 

1960 blc%?0fs%=K% 

1979 REM Get Goen to print hex 

1980 cpos$-(POS-49)*3 

1999 VDU 31,cpos%,VPOS 

2000 IF K%>15 THEN PRINT;~K%;" "; ELSE 
PRINT; "Ø" ; RS; "s 

2010 VDU 31,cux,cuy 

2020 IF (K%<32)OR(K%>122) THEN PRINT", 
"s: ELSE PRINTCHRS (KS); 

2030 ENDPROC 

2040 

2050 DEFPROCintro 

2060 COLOUR] 29:CLS 

2070 VDU 28,2,29,17,2 

2080 COLOUR13@:CLS 

2090 VDU 28,4,27,15,4 

2199 COLOUR] 31:CLS 

2110 MOVE 565,859 

2120 GCOLØ,Ø 

2130 PLOT1,150,0:PLOT1,0,—80:PLOT1,-15 
0,0:PLOT1,0,80 

2149 PLOT0,20,—40:PLOT1,110,0: PLOTO , —7 
2,28:PLOT8,34,0 

2150 PLOT81,0,—53:PLOT0, —-34, Ø: PLOT81 , 9 
z 53: PLOTØ,-29,-48 

2169 GCOLØ, 1 

2170 PLOT65,0,0:PLOT65,4,0:PLOT65,0,4: 
PLOT65,-4,Ø 

218Ø COLOUR: PRINTTAB (4,5) "DISC" ' TAB (3 
77) "SECTOR" ' TAB (3,9) "EDITOR" 

2190 PRINT'''''" Drive? "::AS=GETS:D 
%=VAL (AS) :AS=STRS (DS) 

2200 ENDPROC 
2219 DEFPROCcm (AS) : Sblc%=A$: X%=b1 c$MOD 

=bl o sg 
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E LISTING AFTER P. Jollyman 

If you use the following key definition, you will get a listing of the line 
signalled in the last ERROR statement, each time you press function key zero. This 
can be extremely useful for editing purposes. Just press fØ when an error occurs, 
and you will see the offending line. There are two modifications that you may wish 
to make 
(1) Insert MO.7|M at the very start (i.e. after *KEY@). This will put the machine 
into mode 7 before printing the error line 
(2) After STRSERL insert +"," 
This allows you to continue from a listing that you have escaped from. It might be 
useful to put this version into a different key. 


*KEYØ CS="LIST"+STRSERL+CHRS 1 3:A%=1 38 : X%=Ø : F „ L=] TOLENCS : Y&=ASC (MIDS (C$, L) ) : CA.&FFF4: 
N. p 


FAST VERIFY FOR WORDWISE - David Graham 


A very quick verify operation for Wordwise files can be performed using the 
"verify" suggested for Basic and other programs in BEEBUG v.] no.3. To verify a file 
name TEXT, simply type: 

*LOAD TEXT &8ØØØ 

This does not check it against text held in memory, but it does the next best ECH) 
Any loading faults will be signalled, and the test does not affect text in memory. 
This means that if it is performed immediately after saving a given file, you have 
the opportunity of re-saving it if the 'verify' indicates a fault. Note that the 
verify routine works very many times faster than the original data saving or loading 
‘operation, (Disc only!!). Of course it is always a good idea to keep back-up copies 
of all work. 


CHANGING "TAB" CO-ORDINATES TO "MOVE" PARAMETERS A. E. Wilmshurst 

In the series ] operating systems, the TAB command does not function when a VDU5 
has been issued. Many programs have been written on 0.5. 0.1 assuming that TAB does 
work. Converting these programs consists of changing the TAB statements to MOVE (it 
was not supposed to operate on 0.1 but there must have been an ”"unbug"). The 
conversion from text co-ordinates to graphics points is easily performed. Where you 
see TAB(X,Y) use MOVE X*factor,1020-Y*32. Where factor is 16 for mode Ø, 32 for 
modes 1 and 4, and 64 for modes 2 and 5. A program written this way will work on all 
current 200 Rad Jus something else goes MONSEN 


BASIC I PROGRAM EXECUTION ADDRESS - Richard Porter 
To run a Basic program from machine code, the following is all that is required 
(Basic I): 


JMP &BD2C 


nan = 
A member called 'Mac' would like to add a few more calls to the ever increasing 
list of *FX commands, and so would the editorial team: 


*FX 200 Has various effects depending on the value of the second argument. Those 
known of are: 
*FX200,0 — turns Escape key ON 
*FX2ØØ,1 = turns Escape key OFF (This is different from *FX220, which 
re-programs the Escape key. *FX220,0 programs it to CTRL Q) 
*FX200,2 - wipes out memory after 'Break' completely destroying programs in 
memory. You can of course achieve this by programming function key 19. 


*FX2Ø] Switches on/off the entire keyboard (except Break). 
*FX201,0 — turns keyboard ON 
*FX201,] = turns keyboard OFF 
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a on Ln TTST — 
a Wong 1 ANAGRAMS (16k) 
pog Qt að o 

oS by Mike Case 


ANAGRAMS is rather different from most games. It requires a degree of thought on 
the part of the player - and moreover it has no 'fire button' - but do not let this 
put you off. The player is presented with 
anagrams which he must solve, each of 
which has at least one correct solution. 


The list of words used is held in DATA statements from line 1810 onwards. The 
words are terminated by 999 to mark the end of the list, and new words can be 
inserted in fresh data statements, providing you make sure that 999 is the last item 
of data. The maximum number of words currently allowed is 200, set at line 4g. 
Change vocab$(2ØØ) to a larger value if 
required, though if this becomes too 
large you will need a 32k machine. 


To make the game suitable for children, either remove the longer words and 
replace them with simpler ones, or alter the section at line 220 to filter out long 
words, e.g. insert 255 IF length>4 THEN GOTO 220 (you can also filter out the 
shorter words by a similar process). If the children are very young you may wish to 
put the words into lower case, as they will probably not be familiar with upper case 
text; though of course you cannot easily change the keys themselves! Note that some 
of the anagrams displayed may have more than one solution. The program will only 
accept ONE of these. For this reason we have edited out a considerable number of the 
3 and 4 letter words intially supplied. Note that lines 1719 to 1798 are data 
Statements used to generate Teletext Colour codes for the display. This technique 
has been used to facilitate keyboard entry of the program. 


120 CLS 

130 FORJ$-0TO]:PRINTTAB(7,24J$) CLS (l 
);"SCORE IS ";W$;" OUT OF ";I$;SPC(2);C 
HR$156:NEXT 

140 REM Set random number generator t 
o random start 

150 X=RND(-TIME) 

160 RESTORE 1819 

| | 178 REM READ IN THE WORDS 
YOU HAVE 2 WRONG GUESSES LEFT | 182 vocab=9 
an |] 199 REPEAT vocab=vocab+1 

200 READ vocabS (vocab) 

218 UNTIL vocab$ (vocab) ="999" : NUM=voc 
Ab- 


H 2 mes ä 2 2 Ø REM Pi ck a r a n dom WO rd 
19 REM ANAGRAMS VERSION JA 230 random=RND (NUM) 


26 REM BY MIKE CASE ; SEPTEMBER 1982 240 phrase$-vocab$ (random) 
30 MODE 7 259 length=LEN(phrase$) 
49 DIM CLS (9) ,vocab$ (2090) ,guesss$ (29) 260 guess=1 
e jumbled$ (20) 270 right=Ø:wrong=Ø 
50 PROCSETCOL 280 PROCSHUFFLE 
60 REM DISABLE CURSOR 290 PRINT''SPC(7);"The word you have 
70 VDU23;8202;0;0;0; to find is " 
80 W$-0:I$-0 300 PRINTSPC(7);length;" letters long 
98 CLS e you have to" 
100 PROCTITLE 310 PRINTSPC(7);"guess each letter in 


 11Ø FOR wait=1 TO 1ØØØ:NEXTwait turn 
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t one. " 


330 PRINT'':FORJ$=ØTO1| : PRINTSPC (2) CL 


$(8) ; "PRESS THE SPACE BAR TO START" SpC 
(2) ;CHR$ 56: NEXT 

340 REPEAT UNTIL GET=32 

350 CLS 

360 FORJ%=ØTO1 : PRINT' CHR$141 ;CHRS$1 30; 
" Length = ";length;:NEXT 

370 PRINTTAB(2,5)"Here is the jumbled 
up phrase" 

380 FORJ%=@0TO1 : PRINTTAB (2, 7+J%) :CLS (7 
); shuffled$;CHR$134;CHR$255:NEXT 

390 PRINTTAB(1,11)"Now enter your gue 
SS for letter no. ";guess 

4ØØ guess$ (guess) =GETS 

41@ REM to prevent guess of letter no 
t in word 

420 PROCSILLY 

430 IF silly=@ THEN GOTO4ØØ 

440 PROCCHECK 

459 IF checkz THEN PROCNOISE:wrong=w 
rong+1 

46Ø IF check=1 THEN PROCYES:guess-gue 
Sst] 

470 REM Set number of wrong guesses a 
llowed to INT(half total letters) 

480 IF (INT(length/2))-wrong=1 THEN F 
ORJ%=0TO1 : PRINTTAB (4, 18+J3%) ¿CL$ (2) ; "THI 
S IS YOUR VERY LAST CHANCE ":NEXT:GOTO5 
00 

490 FORJ%=9TO] : PRINTTAB (4, 18+J%) ;CLS ( 
2);"YOU HAVE "; (INT(length/2) ) -wrong;" 
WRONG GUESSES LEFT "NEXT 

500 IF checks] THEN right=right+1 

510 end$="" 

520 IF wrong-INT(length/2) THEN PROCA 
NSWER 

530 IF right-length THEN PROCWIN 

540 IF end$="" THEN 399 

559 IF end$="N" OR end$-"n" THEN MODE 
7: FORJS=ØTO1 : PRINTTAB (8 ,8+J%) CLS (3) ;"B 

YE-BYE " > CHR$ ] 56 : NEXT: END 

560 IF end$="Y" OR end$="y" THEN GOTO 
120 

570 

580 DEFPROCCHECK 

590 check=Ø 

600 IF guess$ (guess) -MID$ (phrases, que 
ss,1) THEN check=] 

619 IF check=1 AND guess=1 THEN FORJ% 
=ØTO1 : PRINTTAB (1, 13+J%) ¿CL$ (4) ;SPC (leng 
th+5) ; CHR$ I 56 : NEXT 

620 IF check THEN FORJ%=ØTO1|:PRINTT 
AB(3,13+J%) ;CHRS 141 ; CHR$ 132; LEFTS (phras 
e$ ,guess) ; CHR$ 158 : NEXT: PRINTTAB (4,9) SPC 
(length+3) : PROCDELETE 

630 IF check THEN PROCUNDERLINE 

640 ENDPROC 

650 
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679 H 7 7 
68Ø SOUND 2,-15,1Ø3,5 
690 SOUND Ø,-12,2Ø,5 
7ØØ ENDPROC 
71Ø | 
720 DEFPROCYES 
730 ENVELOPE 1,1,2,-2,5,30,25,15,50,0 
707255, 120,0 
740 SOUND 151589, 5 
750 SOUND J, 17 199,5 
760 ENDPROC 
770 
780 DEFPROCANSWER 
790 I%=I%+length:W%=W%+right 
800 shuffleds="" 
819 FOR times=1 TO length 
820 shuffled$=shuffled$+jumbled$ (time 
S) 
830 NEXTtimes 
840 CLS 
850 PRINTTAB(5,1)"The jumbled phrase 
was ; -" 
860 FORJ%=ØTO1 : PRINTTAB (5, 3+J%) ; CL$ (5 
) ;shuffled$ ;: SPC (3) ; CHR$ 156 : NEXT 
870 PRINTTAB (4,7) "The original phrase 
was :-" 
880 FORJ%=ØTO1 : PRINTTAB (5, 9+J%) CLS (6 
) ;phrase$ ;SPC (2) ; CHRS 156: NEXT 
890 PRINT’ SPC (4) ;"Another go (Y or N 
W 
900 end$=GETS 
919 IF end$<>"y"AND endS<>"Y" AND end 
S<>"n"AND endS<>"N" THEN 906 
929 ENDPROC 
930 
940 DEFPROCTITLE 
950 PRINT''';:FORJ%=9TO] : PRINTCHRS 1 39 
sCHR$141;SPC(8) ;"A NA GRA M":NEXT 
960 PRINTTAB (6,1) ;CHR$146;STRINGS$ (20, 
ms") 
970 PRINTTAB(5,1);CHR$146;"7";TAB(27, 
1) "y" 
980 PRINTTAB (27,6) ;"z" 
999 PRINTTAB(6,6) ; CHR$146; STRINGS (20, 
S") 
1000 PRINTTAB(5,6) ; CHR$146;"u" 
1919 FOR I=2 TO 5 
1920 PRINTTAB (6,1) ;CHR$146;"5" 
1030 PRINTTAB(5,I);CHR$146;"5" 
1040 PRINTTAB (26,1) ; CHR$146;"j" 
1050 PRINTTAB (25,1) ; CHR$146;"j" 
1060 NEXT 
1970 ENDPROC 
1980 
1690 DEFPROCSHUFFLE 
1100 IF LEFTS(phrase$,1)=" " THEN phra 


se$=RIGHTS (phrases, (LENphrase$-1) ) :leng 
th=length-1 


1119 IF LEFTS(phrase$,1)=" " THEN 1100 
1120 space=Ø 
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imes=1 TO length 

1159 IF times-length X=1:GOTO1179 

1169 X=RND (LEN (news) ) 

1178 jumbleds (times) =MIDS (news, X, 1) 

1188 newS=LEFTS (news, (X-1) ) +RIGHTS (new 
$, (LEN new$-X)) 

1198 NEXTtimes 

1200 shuffleds="" 

1219 FOR times=] TO length 

1220 shuffled$=shuffled$+jumbled$ (time 
S) 

1230 IF jumbled$(times)=" " THEN spac 
e-space-] 

1240 NEXTtimes 

1250 ENDPROC 

1260 

1270 DEFPROCWIN 

1280 PROCYES:PROCYES 

1298 W$-We-right:I$-I$4length 

1308 CLS 

1319 IF wrong>] THEN FORJ$-0TOI:PRINTT 
AB(Ø,5+J%) ;CLS (9) : "YOU WIN WITH ONLY "; 
wrong;" WRONG GUESSES" : NEXT 

1320 IF wrong=1 THEN FORJ3=ØTO1:PRINTT 
AB(Ø,5+J%) ¿CL$ (9) ; "YOU WIN IN ONLY ONE 
WRONG GUESS" : NEXT 

1330 IF wrong=Ø THEN FORJ%=ØTO] :PRINTT 
AB(Ø,5+J%) ;CLS (9) ; "WELL DONE II NO WRO 
NG GUESSES" : NEXT 

1340 PRINT'''" 

2" 

1359 end$=GETS 

136Ø IF end$<>"Y"AND endS<>"N" AND end 
S<>"n" AND end$<>"y" THEN 1350 

1370 ENDPROC 

1389 

1399 DEFPROCUNDERLINE 

1400 find=9 

1418 REPEAT find=find+1 

1429 UNTIL guess$ (guess) =MIDS (shuffled 
$,find,l) 

1438 PRINTTAB (4,9) ; SPC(29) 

1449 PRINTTAB( (4+find) ,9) ;CHR$145;CHRS 
96 

1450 ENDPROC 

1460 

1470 DEFPROCDELETE 

1489 find=9 

1499 REPEAT find=find+1 

1500 UNTIL guess$ (guess) =MID$ (shuffled 
$,find,1) 

151@ shuffled$=LEFTS (shuffled$,find-1) 
+" "+RIGHTS (shuffleds, (LENshuffled$-fin 
d)) 

1529 FORJ$-0TOI:PRINTTAB (2, 7+J%) CLS (7) 
; shuffled$;CHR$134;CHR$255:NEXT 

1530 ENDPROC 
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155Ø DEFPROCSILLY 

156Ø silly=Ø 

157Ø FOR find=1 TO length 

1589 IF guess$ (guess) =MIDS (shuffled$,f 
ind,1) THEN silly=1 

1599 NEXTf ind 

16ØØ ENDPROC 

161Ø 

1620 DEFPROCSETCOL 

1630 RESTORE 1718 

1649 FORI%=1 TO 9 

1650 REPEAT 

1660 READ C:IFC<>Ø THEN CLS (IS) CLS (IS 
) +CHRS (C) 

1670 UNTIL C=Ø 

1680 NEXT 

1690 ENDPROC 

1700 

1718 DATA132,157,141,131,Ø 

1729 DATA141,135,157,136,129,Ø 

1730 DATA131,157,141,132,0 

1740 DATA135,157,141,0 

1750 DATA129,157,141,135,9 

1760 DATA135,157,141,129,0 

1778 DATA141,134,255,131,9 

1780 DATA147,141,157,145,0 

1790 DATA135,157,141,132,136,0 

1800 

1819 DATA HOUSE,COMPLAINT,OFFENCE, PROT 
RUDE , PROPORTIONS 

1820 DATA ACCESSION, ADJACENT , ADEQUATE, 
ADHESIVE , BENEVOLENT , CONVERT , GRAIN 

1830 DATA GROOM, PESSIMISM, PERFECT, HOLD 
e BRACELET , CONVENIENCE 

1840 DATA DATE,CREOSOTE, CRATER, CRAVE ,C 
RAB, LEAST, LEFT 

1859 DATA TREASURE, TRADE, DART, CORNET, C 
RANE , CARROT, LAPEL, CRADLE 

1869 DATA CONTAIN, TRIP, PRESUME, PLANE, K 
NEEL, CABINET 

1878 DATA DIVIDE,DRIED, IDEA 

1880 DATA PARTITION,AVOIDANCE , ENDURANC 
E, ELEPHANT, SLIPPER, SLIDE 

1890 DATA GRAPES, PRIDE, BOTHER, BRAIN, BR 
AID, BEARD 

1900 DATA AGGRIEVED, VERTIGO, ELEVATOR, E 
XCAVATOR , AVIATOR, UMBRELLA, UNDER 

1919 DATA SUGAR,STARVE,STERN, IF, IMAGE, 
INFECT 

1920 DATA UNDERSTAND, LOVERS, SLAM, APPLI 
CATION, EVENTUALITY 

1939 DATA QUEEN, HOT, FEAR, PRAM, REAM, CAR 
VE , CROCODILE, APPLE 

1949 DATA EXACERBATE , EXCOMMUNICATION,D 
RONE,GRAPE,GALE, FLAG 

1950 DATA HEAP, EPIC, EVIL, WHAT, THING, 99 
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N 
PLU ROBOT ATTACK (32k) 


This program is an implementation 


of the classic Zombies game, which has 
been written on many computers. You 
control a man who is chased by a number 
of Robots. You must dodge them, and at 
the same time lure them into variously 
placed mines. You must also keep well 


clear of the swift and purposeful 


Marvin. From time to time he will burst 
through the bars of his cage to pursue 
you - but you do get a warning - the 
cage bars will flash if this is 
imminent. ROBOT ATTACK is pleasantly 
fast and fun to play , requiring a nice 
balance of dextrous skill and strategy. 
The game has a number of nice optional 
extras - a sound on/off option, a high 
score table, instructions and so on. 
The program is in colour and requires a 
32k machine. Disc users should set 


POONA 40 0, 6.9 9,8 0,60 0 6 0 0 9,0 0,0 0, 0 9,0 06, 09,0 9.9 € € 0 09, 0 0,9 O à 0 oO e e € € O 0.9 0.0,0 9 6 0.0.0 0.0 0% 6 O 9 O 6 


10 REM ****kkkkkkkkkkkkkkkkkkkkk 
20 REM ** ROBOT ATTACK Si 


30 REM ** Written for the ** 
40 REM ** BBC Micro Model B ** 


59 REM ** By Edward Hung * * 
60 REM ** VERSION JA * * 
70 REM * de dede de dede dede e eoe 
80 PROCSETUP 


99 ON ERROR GOTO 2060 
109 MODE7:PROCTITLEPAGE 
110 MODE2 
120 SP$-SP$-50 
130 PROCPLOTOBSTACLES 
140 REPEAT 
159 I$-I2-4]1 
160 PROCCOWBOY 
178 PROCROBOT 
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by Edward Hung 


PAGE to &11ØØ before typing or loading 
in (i.e. type PAGE-&1100 <returm), and 
should avoid pressing Break. For this 
reason, disc users may wish to delete 
line 2878 to allow Escape to function. 


The program is entirely in Basic. 
The single CALL command is for  OSWORD 
call zero to input the player's name. 
This technique is extremely useful as 
INPUT is rather unsatisfactory for this 
purpose, allowing any character to be 
typed. It is also much shorter than 
trying to write a Basic routine to 
input.a line in this way. The relevant 
lines are 1830 to 1860 which produce a 
string NS. The control block is set up 
to allow a maximum of 20 characters, 
each in the range ASCII 32 to 128. 


190 IFI%>5 I%=9 
200 IFS%>=0S% OS$=05%+15ØØ:LV%=LV%+1: 


PROCLV: IFSND%=1 SOUND1,1,1ØØ, 1 


210 UNTIL DP$-6 OR DD%=1 

220 IFDD$-0 SH%=SH%+1:DP%=09:GOTO129 
230 LV%=LV%-1]:DD%=9:IFLV3>9 GOTO!390 
240 PROCDELAY (3500) 

250 PROCSCORE : PROCRESET : PROCDISPLAYHI 


SCORE 


269 GOTOTIØ 
270 DEFPROCTITLEPAGE 
280 FORI$-8TO9:VDU31,11,12,141,129:PR 


INT. ROBOT ATTACK" : NEXT 


200 PRINT'TAB(11) ;CHR$ (£81) ; "By" ;CHRS 


(&82) +"Edward Hung"''"Do you wish to be 
briefed on the mission"TAB(11) ;CHRS (88 
8) ;CHRS (&86) 


; PRESS Y OR N" 
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300 AS=GETS: IFAS="Y" PROCINSTRUCTION 
ELSE IFAS<>"N" THEN3ØØ 

31@ ENDPROC 

320 DEFPROCINSTRUCTION 

330 VDU12,31,5,1:PRINT"ROBOT ATTACK I 
NTRUCTIONS" 

340 PRINT 
vivor of the 
being  persued" 

359 FORT%=1TO13:READA,AS : PRINTTAB (A) A 
S:NEXT 

360 PRINT'TAB(8)"SPACE BAR TO HYPERSP 
ACE" ! ! "TAB (9) ; CHR$ (&85) ;CHRS (888) ; "ANY 
KEY TO START" 

370 DATAØ,"by a hostile group of Bolo 
Bolo Robots,",1,"whose only orders are 
to kill you by",13,"ramming you.",2,"O 

ccasionally, Mean MARVIN,King of",4," 
Boloansappears to help them.",2,"You m 
ust kill them by luring them" 

380 DATA2,"onto mineswhich you yours 
elf must",13,"not walk onto.",3,"CONTRO 
LS:",16,"Z _ LEFT",16,"X _ RIGHT",16,": 

_ UP",16,"7 _ DOWN" 8 

390 *FX15,@ 

400 A=GET 


419 ENDPROC 
420 DEFPROCSETUP 


430 ENVELOPE1,1,0,0,0,0,0,0,0,0,0,—1, 
126,0 

440 ENVELOPE2,129,2,4,6,28,14,7,0,0,0 
,-80,80,80 

450 ENVELOPE3,1,4,-4,4,10,20,10,127,0 
705,126, 126 

460 VDU23,250,8,28,9,30,40,8,20,20 

470 VDU23,251,16,56,144,120,20,16,40, 
40 

480 VDU23,252,24,24,60,90,90,16,16,24 

490 VDU23,253,24,16,124,186,186,16,40 
740 

500 W 23, 254724, 60,60, 60,60 24; 

519 VDU23,255; 146,84; 19884, 146 

520 VDU23,224,160,84,184,16,8,5,2; 

530 VDU23,225;0;0,9,81,127; 

540 VDU23,226,5,42,29,16,32,192,64; 

550 VDU23,227;0;0,72,69,127; 

560. NDU23,228, ß. 

579 VDU23,229,0,6,30,62,30;0; 

580 DIMX% (6) „LS (6) „88 (10) „NS (10) 

590 SND%=1 :*FX4,1 

600 PROCSCINIT 

610 PROCRESET 

620 ENDPROC 

630 DEFPROCSCINIT 

649 FORI%=1TO19:S%(1%)=550-I%*59:NS (I 
%)="The Robots of Zaexon":NEXT 

650 ENDPROC 

660 DEFPROCLV 

670 VDU17,3,31,1,31 : PRINTSPC (14) ; TAB( 
1,31) STRINGS (LV$-1 , CHR$250) ; 
680 ENDPROC 


You are the last sur 
Human Race. You are 
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699 DEFPROCRESET 

700 S%=Ø:SC%=Ø:0S%=15ØØ: SP3=4ØØ: SH = 
e LV3=3:F%=0 

710 ENDPROC 

720 DEFPROCRND] ` 

730 A%=RND(18):B%=RND(25)+4 

740 ENDPROC 

750 DEFPROCRND2 

760 X (I2)-RND(18):Y$ (I2) =RND (25) +4 

770 ENDPROC 

780 DEFPROCRND3 

790 X%=RND (18) : Y8=RND (25) +4 

800 ENDPROC 

810 DEFPROCPLOTOBSTACLES 

820 VDU23;8202;0;0;0; 28,1,29,18,3,12, 
20919 ¢ 157279; 

830 GCOL9,7:MOVE69 , 60 : DRAW] 219,60 : DRA 
W1219,930: DRAW60 , 930: DRAW60 , 60: GCOLO , 15 
:FORI$-576TO704STEP33:MOVEI£,926: DRAWIS 
70663 NEXT: DRAW576 , 866 

840 FORT%=1TO015:VDU17,1,31,RND(18) , RN 
D(24)45,254: NEXT 

859 FORIS=1TO6 

860 REPEATPROCRND2 : UNTILFNPOINT=Ø 

870 VDU17,6,31,X% (IS) , YS (I2) , 252: NEXT 

880 VDU5,18,0,2,25,4,576; 1024-4* 32; 25 
35,0,17,5531,5,0 

899 PRINT"HISCORE ";S2(1)TAB(6,1)"SCO 
RE ";5% 

900 I1%=Ø:DD%=Ø:GKL3=-1:DP%=Ø:D%=25Ø:G 
A%=@ : FL3=@ : CD 
910 PROCLV 
920 LE%=SH%MOD5 ; 
930 IFSH£/5-SH$DIV5 LE%=5 H 
949 IFLE%=1 VDU4:PRINTTAB(14,31) ;SPC( 


4); 
959 VDU5,18,0,1,25,4, (18-LE%) *64; 1024 
—31*32; 

960 IFSH%>3Ø SH%=1 

970 IFSH2«3]1 A=7:IFSH%<26 A=6:IFSH%<2 
] A=5:IFSHS<16 A=2:IFSH%<1] A=4:IFSH%<6 
A=] 

980 GCOLØ,A:PRINTSTRINGS (LES, CHRS (229 
)) 

990 GCOLØ, 3:MOVE (18-LE%) *64,1024—31*3 
2: PRINTTAB (18-LE£ , 31) STRINGS (LE£ , CHRS (2 
28)) 

1000 REPEATPROCRND] : UNTILFNPNT (A2,B2)- Ø 

1010 a%=A%:b%=B% 

1929 VDU4,17,12,31,A$,B2,250 

1930 FORT%=1TO1ØØØØ:NEXT 

1040 VDU17,3,31,A2,B2,250 

1050 ENDPROC 

1060 DEFPROCCOWBOY 

1970 IFINKEY-98 A%=A%-1:F%=1:D%=25]1 

1980 IFINKEY-67 A%=A%+1:F%=1:D%=25Ø 

1999 IFINKEY-195 B%=B%+1:F%=] 

1100 IFINKEY-73  B£-B$-]:F2-] 

1119 IFINKEY-99 H%=1:F%=1:REPEATPROCR 
WI: UNTILFNPNT (A2,B%)<>6 AND FNPNT(A2,B 
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1120 IFF%=9 ENDPROC 
1138 A2-A$4(A2»18)- (ACI) :B2=B3+ (BS>29 
)-(B3<3) 

1148 IFFNPNT(A$,B$)=1 PROCPIT(a%,b%,A% 
,B%) sDD%=1 : ENDPROC | 
1150 IFFNPNT(A2,B%)=6 OR FNPNT(A%,B%)= 
2 PROCDFEAD:DD%=1 : ENDPROC 
1169 IFFNPNT(A£,B$)«»0 A%=a%:B%=b%: END 
PROC 
1178 PRINTTAB (a%,b%)" ":IFH$-1H2-0:PRO 
CDELAY (790) 

1188 VDU17,3,31,A%,B%,D% 
1198 As- DBS: FS 
1200 FORTS=1TOSP%: NEXT 
1210 ENDPROC 
1220 DEFPROCROBOT 
1230 IFDD%=] ENDPROC : 
1240 IFX%(I%)=@ AND Y%(I%)=@ ENDPROC 
1250 OX%=X% (I2) :0Y2-Y$ (I2) 

1260 XS (TS) XS (IS) ＋ (XS (IS) >A) (XS (I2) 
<A%) 
1278 Y% 
«B2) 
1280 IFFNPOINT=6 OR FNPOINT-2 REPEAT P 
ROCRND2:UNTIL FNPOINT=@: IFSND%=1 SOUND] 
,2, 50,10 

1299 IFFNPOINT=1 PROCPIT (Ox%,OY%,X%(I% 
) YS (IS)) : X% (IS) =Ø: YS (I$) 20: DPS=DPS+13P 
ROCMS ( 1 Ø) : ENDPROC 

1300 IFFNPOINT-3 PROCDEAD:DD$-1:ENDPROC 

1318 IFFNPOINT<>Ø Y$£(I£)-Y£(I2)42 

1320 FORTS=1TOSP%:NEXT 

1330 IFSND%=1 SOUND3,-15,1Ø,1 

1340 PRINTTAB(0X2,0Y%) ;SPC(1) : VDU17,6, 
31,X%(1%) , YS (18) ,252 

1350 IFRND(1)>@.95 AND FL2=0:GKL%=-GKL 
% :C2=GKL2:IFGKL3=1 X2=9:Y2=5:FL%=1:J%=9 
CAS: VDU19,15,14;%0; : IFSND%=1 SOUNDI,- 
15,50,1 

1360 IFC%=-1 VDU5,18,3,2,25,4,9*64;102 
4—4*32; 253,4: PRINTTAB (XS, VS) SPC(1) :C2-0 
: IFSND%=] SOUND1,-15,2ØØ,1 

1370 IFFL2=1 J$=J%+1:IFJ3=1Ø VDU5,18,3 
;,2,25,4,9*64; 1024—4*32; 253,4,19,15,2;0; 
:FL$-20:GAg-21:IFSND$-1] SOUND1,-15,2ØØ, 1 

138ø ENDPROC 

1390 DEFPROCMARVIN 

1400 XX%=X%:VYS=Y% 

1410 X%=X3+ (XS DAS) - (XS AS) : YS-Y94- (YS>B 
3) - (Y$«B2) 

1420 IFFNPNT (X%,Y%)=15 Y%=Y%+2 

1439 IFFNPNT (XS VS) =] PROCPIT (XX. WS, 
X%,Y%) : X3=Ø: Y&=0:GKL2=-1 : VDU5, 18, 3,2, 25 
,4,576;1Ø24-4*32; 253, 4: PROCMS (180) : ENDP 
ROC 

1440 IFFNPNT (X%,Y%)=3 PROCDEAD:DD$-]:E 
NDPROC . 

1450 IFFNPNT(X%,Y%)=6 REPEATPROCRND3:U 
NTIL FNPNT(X2$,Y2$)-0:1IFSND$-] SOUND3,2,5 
0,10 
1460 IFSND%=1 SOUND2,3,5Ø,1 


(1$)-Y$ (I2) + (Y (I$) >BS) - (Y$ (I2) 
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;YY$);S 
31,X%,%%,253 

1480 ENDPROC 

149Ø DEFPROCPIT (a,b, A, B) 

1500 PRINTTAB(a,b)" " 

1519 IFSND%=1 SOUNDZ,1,5,1 

1529 VDU17,3,31,A,B,255:FORL-1TO590:NE 
XT: PRINTTAB (A,B) ;SPC(1) 

1530 ENDPROC 

1540 DEFPROCDEAD 

1550 IFD%=25@ D%=224 ELSE D%=226 

1569 W017, 3, 31, 28, DS, DS: FORL=1TO5090:N 


EXT: VDU31 ,a% ,b% , D$+1 


1570 IFSND%=1 SOUND9;,1,5,] 


ch 1580 PROCDELAY (708) 
If 1599 IFSND%=1 FORQ%=1T05:FORL%=255702Ø 


QSTEP-1:SOUND17,-15,L2, I: NEXT, 

1600 IFSND%=Ø PROCDELAY (2000) 

1619 ENDPROC 

1620 DEFPROCDELAY (TS) 

1639 FORT-ITOT$:NEXT 

1640 ENDPROC 

1659 DEFPROCMS (S) 

1660 S%=5%+5:VDU17,8,31,12, : PRINT; 88 

1670 END PROC 

1680 DEFPROCSCORE 

1699 FORIS=1TO1Ø 

1700 IFS%>=S%(I%) AND SC%=9 SC%=1% 
1719 NEXT | 

1720 IFSC%=9 ENDPROC 

1730 PROCENTERNAME 

1740 FOR P$-10 TO SC%+1 STEP-1:S%(P%)= 
88 (P%-1) : NS (P$) NS (P$-1) : NEXT 

1750 NS (SCS) NS 

1760 S% (SC) =S% 

1770 ENDPROC 

1788 DEFPROCENTERNAME 

1790 VDU12,17,2: PRINTTAB(Ø,6) "Your sco 
re is in the Top Ten" 

1800 VDU17,6:PRINT" Please enter your" 
SPC (9) ;name :" 

1819 *FX15,Ø 

1820 VDU23;10,224;0;0;0;31,0,13; 17,3 

1830 X%=&8Ø:Y%=&A:A%=Ø 

1840 !&A8Ø=&AØØ:?&A82= 20:28A83-32:?8A8 
4-128 
1858 

1860 

1870 


CALL& FFF ] 
NS=S&AØØ 
ENDPROC 
1880 DEFPROCDISPLAYHISCORE 

1890 VDU22,1,23;8202;0;0;0;19,3,12;0;: 
PRINTTAB (15) "Highscores"' ':VDU19,1,3;0; 
17,1 

19ØØ FORI%=1TO1Ø: IFI%=] ØAAS=""ELSEAAS= 
9?) | 

191Ø BBS=" o o e o o" 3 IFS8 (18) <999BB5=".... 
os c IFS% (1S) <99BBS="". 2224 m 

1920 PRINTTAB (3) AAS; LS; BBS: S8 (IS) 2 25 
"NS (13) ! 

193Ø NEXT 


D 
e 
= e 
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1948 VDU19,2,15;0;17,]:PRINTTAB(8)"C t 2000 IFA=79 OR A=111 PRINTTAB(25, 26) "o 
o close sound channel"'TAB(8)"O to open n. "iSND$-]:GOTO!9790 


Sound channel"''TAB(11) "Sound Channel 2010 ENDPROC 
"' sCOLOUR2: PRINTTAB (II) "Any key to star 2020 DEFFNPOINT 
t":COLOUR3:PRINT'TAB(7)"Or @ to clear s 2030 -FNPNT(X$(I$),Y$(I2)) 
core table" 2040 DEFFNPNT(U%,V%) 

1958 COLOUR3:IFSND%=1 PRINTTAB(25, 26)" 2050 =POINT(U$*64+32,1Ø1Ø-V%*32) 
on. "ELSEPRINTTAB (25,26) "off." 2060 ON ERROR OFF 


1960 *FX15,@ N 4 4. 2970 IF ERR=17 THEN PROCRESET:GOTO 99 
19780 A=GET Ju 1 ^ 1 5 2080 MODE7 

1989 IFA=64 PROCSCINIT:GOTO189 2090 *FX4,Ø 

1990 IFA=67 OR A=99 PRINTTAB (25,26) "of 2100 REPORT: PRINT” at line ":ERL 


f. sSND$-0:GOTO1979 2119 END 


JOYSTICKS FOR ALIENS 
by P. J. G. Butler 


Ben Heller's ALIENS (BEEBUG Oct.'82) is such a success in our household that I 
began to fear for my keyboard, particularly with some of my children's heavy 
fingered friends. So when my BBC Joysticks arrived at last, I modified the program 
to use Joystick ] to control the laser base position and fire, and also made a few 
minor modifications to the rest of the game, all listed here. It will also be 
necessary to modify the instructions as appropriate. 


45 ON ERROR MODE7: REPORT: 
PRINT" at line ";ERL:END 


225 R-RND(-TIME) 455 IF BX$ >37 BX$-37 

440 BX% = ADVAL(1)/150041 495 BULL% = -(ADVAL(0) AND 1) 

445 IF BX$ = B1% ENDPROC 500 IF YB%=@ AND NOT BULL% ENDPROC 
459 IF BX% <1 BX%=1 840 IF Al SN OR Al$="n" MODE7: END 


A complete copy of the new version of Aliens appears on this month's magazine 
cassette. Note that it will not work without joysticks. 


*FX 3 (New O.S) - I. Foulkes, T.G.E. Bromilow, Matthew Rapier 
. . As we mentioned last month (BEEBUG Vol.2 No.2 p.30). This call does not work as 
described in the User Guide page 422. The bits for RS423 and screen work 
correctly, but the printer bit doesn't. The main use of this command seems to be 
to select printing without screen display; and VDU2,21 is much the easiest way to 
replace the *FX3,2 call. However *FX3 has other capabilities. If bit 2 is set 
and bit 3 is clear (*FX3,4) then no printing can occur even if CTRL-B is pressed. 
To get printout bit 2 must be clear, and setting bit 3 will force printout without 
using  CTRL-B. Another curious feature is bit 6. If this is set, the printer is 
disabled, but if it is clear and VDU21 is used to turn off the disp ay then 
linefeeds (only) are sent out to the printer, if the printer ignore charácter is set 
to Ø, this happens with RS423 and Centronics interfaces. To summarise : 

bit Ø enables RS423 | 

bit ] disables Screen 

bit 2 disables Printer 

bit 3 forces Printer if CTRL-B not used 

bit 4 disables Spooling 


bit 6 disables Printer, also stops VDU21 emitting linefeeds to printer, 
If you use RS423 try *FX3,9 with the printer set to be RS423. 
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DOC 


1.2 OPERATING SYSTEM ROM DE 
ACORN PRESS RELEASE TO BEEBUG MEMBERS 
A special arrangement has been agreed between Acorn and BEEBUG whereby BEEBUG 
members may obtain the Series One Machine Operating System in ROM at the price of 
£5.85 including VAT and post and packing. | 
The ROM will be supplied with fitting instructions to enable members to install 
it in their machine. | | 


If the computer does not subsequently operate correctly, members may take their 
machines to an Acorn dealer for the upgrade to be tested, which will be done at a 


charge of £6.00 plus VAT. This charge will be waived if the ROM is found to have 


been defective. If the computer has been damaged during the installation process, 
the dealer will make a repair charge. 
NOTES ON ORDERING. 

1. To get a new ROM, BEEBUG members should send a cheque, made payable to 
BEEBUG, for £5.85 to: ROM Offer, BEEBUG, PO Box 189, High Wycombe, Bucks, 
HPI] 2TD. It is ESSENTIAL to include a cheque with order, and to give your 
membership number. | | 

2. ROM orders must not be combined with any other order - eg for software etc. 
Multiple orders can be accepted but there can be no quantity discount in such 
cases, and the price of £5.85 per unit remains. 

3. Because of uncertainties in supply, please allow 4-6 weeks for delivery. We 
undertake not to cash cheques until the week prior to despatch; and we will 
provide a monthly account of the supply situation in BEEBUG. Please keep a 
note of the date on which you posted your order so that you can relate this to 
future announcements. 

4, Please note that we cannot accept EPROM-based operating systems (Ø.1 or 1.09) 
in lieu of payment. The exchange of EPROMs for the new operating system can 
only be performed by Acorn dealers or by Acorn's service centre at Feltham. 


ADDRESS: ROM Offer, BEEBUG, PO Box 199, High Wycombe, Bucks, HP11 2TD. s 


Processor BEEBUG Discount 13% SAVE £5 


is a highly sophisticated 

compares favourably with those currently available on other microcomputers. It 
makes full use of the BBC Micro's advanced facilities, and text is typed and edited 
in the 40 cloumn Teletext mode, saving memory, thus allowing it to be used with more 
or Less any TV. Wordwise will work equally well on cassette or disc based systems, 
and it is easy to transfer files from cassette to disc if you upgrade at a later 
date. 


This 


Wordwise now includes a free "TYPING TUTOR" program. Af 


CNOTE: Wordwise requires a series 1 05.1. 
The normal price of Wordwise is £39+VAT=£44.85 plus post and packing. 
To BEEBUG members the price is 33 8870p (p&p) +VAT=£40 fully inclusive. 


Price to members outside UK is also £40, this includes the extra p&p but NOT VAT. 


e ee 
DOC 575 2*0 e MIITTA MINIMIS II MINI e o eee DA o oto e „ e o o o a e e a a € e 0 bd 


ng! a 
EM TRA ENU I AL 


ORD 64 I = i_ == i 

Bai E PLUS T Å Å — 
d skage plus = 2 ROM is offered to members at £45.00 including p&p 
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p&p but NOT VAT. 
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word processing package for the BBC Micro, and 
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| IF YOU WRITE TO US P 
Ei | 
| b 
| | BACK ISSUES (Members only) | 
d 0 
| | = ; hn ` 
All back issues are kept in print (from April 1982). Subscriptions Address | 
send 90p per issue PLUS an Ap SAE to the BEEBUG | 
| | subscriptions address. This offer is for members Dept 1 d 
only, so it is ESSENTIAL to quote your membership 374 Wandsworth Rd e 
number with your order. Please note that BEEBUG London 
| supplements are not supplied with back issues. SW8 4TE ; 
` ; 
D D 
B SUBSCRIPTIONS | 
Send all applications for membership, subscription renewals, and | 
subscription queries to the subscriptions address. 
Membership costs: £5.48 for 6 months (5 issues) | 
| : £9.90 for 1 year (19 issues) | 


5 European Membership £16 for 1 year. 
| Elsewhere - Postal Zone A £19, Zone B £21], 


Vlog HIT AA [IA Vi 


Zone C £23 


SOFTWARE AND ROM OFFER (Members only) Software Address 


BEEBUG 
These are available from the address opposite, which PO BOX 109 
is our NEW software address. (Note that this does Baker Street 
not apply to Wordwise - in this instance please see High Wycombe 
magazine for details). Bucks 

HPI] 2TD 


EE 


E 


IDEAS, HINTS & TIPS, SEEMS AND LONGER ARTICLES 


Substantial articles are particularly welcome and we Editorial Address 


|| will pay around £25 per page for these, but in this BEEBUG | 
|| case please give us warning of anything that you PO Box 59 | 
|| intend to write. In the case of material longer St Albans E 
| than a page, we would prefer this to be submitted on Herts | 
|| cassette or disc in machine readable form using AL] 2AR 
Gi "Wordwise", "Minitext Editor" or other means. If you | | 
|| use cassette, please include a backup copy at 2399 Ü 
|| baud. | 
| We will also pay £10 for the best Hint or Tip that we publish, and £5 to the next | 
| best. Please send all editorial material to the editorial address opposite. If you e 
|| require a reply it is essential to quote your membership number and enclose an SAE. | 


BEEBUG MAGAZINE is edited and produced by Dr David Graham "ere 
Technical Editor: Colin Opie. Production Editor: Phyllida Vanstone. 


Technical Assistant: Alan Webster. 
Thanks are due to Matthew Rapier, John Yale, Adrian Calcraft, Tim Powys-Lybbe, 


Graham Greatrix and David Tall for assistance with this issue. 


All reasonable precautions are taken by BEEBUG to ensure that the advice and data 
given to readers are reliable. We cannot, however, guarantee it, and we cannot 


accept legal responsibility for it, neither can we guarantee the products reviewed 
or advertised. BEEBUG (c) July 1983. 
Jan m un 57 y 77. 
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To save wear and tear on fingers and 
brain, we will be offering each month 
a cassette of the programs featured 
in the latest edition of BEEBUG. The 
first program on each tape is a menu 
program, detailing the tapes 
contents, and allowing the selection 
of individual programs. The tapes are 
produced to a high technical standard 
by the process used for the 
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available cassettes are given below. 


Vol ] no 16 Vol 2 no" 2 Vol 2 no 3 
Programs include: programs include: 
Vol 2 no ] Diamond Castle Adventure Balloons 
Hedgehog Beeb at work 
Sound Wizard Speech programs 
Ellipto 3-D Rotation Updated 
Rotating/Expanding Bad Program Lister 
Characters Files examples 
Multiple Function Keys Disc Sector Editor 
Compact Machine Code Anagrams 
Procedure Robot Attack 


PLUS FULL LISTING OF Aliens with Joysticks 
SEIKOSHA GP]ØØ SCREEN PLUS A FULL LISTING OF 
DUMP RESCUE 
SEIKOSHA GP25ØX DUMP 
AND AN AUDIO REPRODUCTION 
OF THE VOCABULARY OF 
SPEECH PHROM A. 


For ordering information see BEEBUGSOFT advertisment at the back of this 
month's magazine supplement. | 


A hard-backed binder for BEEBUG magazine is now available. These binders are 
. dark blue in colour with 'BEEBUG' in gold lettering on the spine. They allow 
. you to use the whole of the first volume of the magazine as a single reference 
book. Individual issues may be easily added or removed. 


Binder price U.K. £3.99 inc p & p, and VAT. 
| Europe £4.9Ø inc p & p (VAT not charged) 
Elsewhere £5.90 inc p & p (VAT not charged) 


. Make cheques payable to BEEBUG. 


Send to Binder Offer, BEEBUG, PO Box 199, Baker Street, ao Wycombe, Bucks, 
2- p. Ge alow 28 days for delivery on U.K. orders 
T | | NN 
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